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SECTION  I 


SUMMARY 


1.1  Summary  of  the  Program 

Under  the  fifteen-month  Speech  Algorithm  Optimization  at  16  Kb/s 
Contract  (DCA  100-79-C-0038),  GTE  developed  a  FORTRAN  simulation  of  the 
Split-Band  Adaptive  Predictive  Coder  (SBAPC)  which  yielded  high  quality 
speech  outputs  at  16  Kb/s.  This  software  was  designed  to  run  on  a  PDP-11 
computer  with  the  FORTRAN  IV-PLUS  compiler. 

The  study  has  resulted  in  a  number  of  significant  accomplishments 
for  developing  speech  processing  algorithm  at  16  Kb/s.  Among  them,  the 
most  important  ones  are: 

1)  the  development  of  the  high  quality  16  Kb/s  Split-Band 
APC  algorithm  which  includes: 

i)  the  design  of  Quadrature  Mirror  Filters  (OMF) 

ii)  the  tradeoffs  between  APC  parameters 

iii)  comparisons  of  Atal  and  Makhoul's  noise  shaping 
techniques 

iv)  adaptive  allocation  of  bits  between  the  subbands 

2)  the  incorporation  of  McAuley's  noise  suppression  scheme  in  the 
SBAPC  which  yields  intelligible  speech  even  in  a  noisy  back¬ 
ground  of  -6  dB  signal -to-noise  ratio 

3)  the  design  of  forward  error  correction  codes  that  main¬ 
tain  the  performance  of  the  Split-Band  APC  algorithm 

in  the  presence  of  10‘2  channel  error  rate. 
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This  Speech  Algorithm  Optimization  at  16  Kb/s-  Contract  was  partly 
motivated  by  the  fact  that  high  quality  communications  at  16  Kb/s  repre¬ 
sent  one  of  the  government's  long-term  goals.  Moreover,  the  Continuously 
Variable  Slope  Del tamodulation  (CVSD)  scheme  presently  employed  by  the 
16  Kb/s  Tenley  terminals  does  not  produce  quality  outputs  that  satisfy 
all  communication  needs.  The  performance  of  these  Tenley  terminals, 
when  in  tandem  with  the  STU-2's,  is  further  compromised  by  the  inter¬ 
actions  of  CVSD's  granular  and  slope-overloading  characteristics  with  the 
buzzy  quality  of  the  2.4  Kb/s  Linear  Predictive  Coder  (LPC).  Consequently, 
an  improved  speech  encoding  scheme  is  needed  for  future  16  Kb/s  terminals. 
Studies  in  the  past'had  resulted  inalgorithms  that  yielded  much  improved  speech 
quality  over  CVSD  at  16  Kb/s.  An  existence  proof  is  given  by  the  Adaptive 
Predictive  Coder  with  Adaptive  Quantization  (APCQ)  developed  for  DCA  by 
GTE  Syl vania  under  Contract  No.  DCA-100-76-C-0002.  However,  though  these 
algorithms  may  yield  outputs  that  compare  favorably  with  CVSD  in  the  back- 
to-back  mode,  yet  the  latter  has  been  proven  time  after  time  to  be  one 
of  the  most  robust  algorithms  under  extremely  adverse  conditions.  As  a 
result,  the  16  Kb/s  CVSD  technique  still  finds  utility  in  the  high  noise 
environment  of  flight  decks  and  the  high  error  surroundings  of  mobile 
radios. 

In  this  study,  a  16  Kb/s  Split-Band  Adaptive  Predictive  Coder  (SBAPC) 
has  been  investigated  and  our  results  indicate  that  the  technique  can 
indeed  produce  much  improved  speech  quality  over  that  of  CVSD.  Specifi¬ 
cations  of  the  16  Kb/s  SBAPC  system  is  shown  in  Table  1-1.  Basically, 
the  algorithm  calls  for  the  splitting  of  the  input  frequency  band  using 
32-tap  Quadrature  Mirror  Filters  (QMF)  followed  by  the  adaptive  predictive 
coding  (APC)  of  the  subband  waveforms.  The  windowing  and  the  optimization 
techniques  have  been  applied  to  the  design  of  QMF's.  Both  procedures  have 
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PARAMETER 


SPECIFICATION 


Input  Bandwidth  0-3200  Hz 

Sampling  Rate  6400  Hz 

Frame  Rate  44.444/sec. 

Number  of  Samples/Frame  144 

Number  of  Samples  Overlapped/Frame  18 

Bits/Frame  360 

Low  Band  Residual  Energy  5 

High  Band  Residual  Energy  5 

Low  Band  Pitch  6 

Low  Band  Pitch  Gain  4 

Low  Band  PARCOR  1  5 

2  5 

3  3 

4  3 

High  Band  PARCOR  1  4 

2  4 

3  3 

4  3 

Residual  Error  Signals  216 

Parity  Bits  (Error  Correction)  90 

SYNC  4 

Number  of  Error  Control  Blocks/Frame  5 

Error  Control  Technique  (63,45)  BCH 


TABLE  1-1:  OPTIMIZED  SBAPC  SYSTEM  SPECIFICATION 
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yielded  QMF's  that  perform  the  bandspl itting  and  reconstruction  with  rela¬ 
tively  little  distortions.  Frequency  response  and  S/Q  plots  of  the  un¬ 
quantized  SBAPC  system  employing  these  filters  have  indicated  that  the 
QMF  designed  using  the  optimization  technique  is  a  slightly  better  one. 

For  the  low-band  where  pitch  and  first  formant  are  present,  our  tradeoff 
analysis  has  shown  that  the  APC  with  a  first  order  pitch  loop  and  a  fourth 
order  prediction  loop  is  capable  of  preserving  these  perceptually  im¬ 
portant  parameters.  For  the  high-band  where  most  unvoiced  sounds,  e.g., 
fricatives  occur,  a  simple  fourth-order  prediction  loop  can  be  employed 
without  hurting  the  overall  quality.  To  account  for  the  fluctuations  of 
the  distribution  of  energies  between  the  high  and  low  bands  from  frame 
to  frame,  a  bit  allocation  scheme  has  been  devised  to  dynamically  alter 
ttv  quantizer  bit  assignment.  With  the  average  assignment  of  1.5  bits  per 
sample,  an  improvement  of  1  dB  S/Q  has  been  realized  with  the  adaptive 
method.  To  further  improve  the  speech  quality,  noise  shaping  algorithms 
have  been  incorporated  in  the  SBAPC.  In  particular,  the  performance  of 
Atal's  and  Makhoul's  noise  shaping  techniques  have  been  compared.  Though 
the  S/Q  yielded  by  the  two  methods  are  roughly  the  same,  Makhoul's  second 
order  all-zero  shaping  filter  has  resulted  in  higher  quality  speech. 

Cognizant  of  the  fact  that  CVSD  yields  intelligible  speech  under  tacti¬ 
cal  situations,  the  performance  of  the  SBAPC  system  has  also  been  studied 
in  the  presence  of  background  noise,  channel  errors  and  in  tandem 
with  LPC.  In  a  low-noise  office  environment,  the  SBAPC  yields  high  quality 
processed  speech  similar  to  that  of  the  back-to-back  mode.  For  high-noise 
surroundings  (e.g.,  S/N  =  -6  dB),  the  algorithm  still  results  in  highly 
intelligible  speech,  but  the  noisy  background  makes  it  very  annoying  to 
listen  to.  To  improve  this,  a  noise  reduction  technique  has  been  de¬ 
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signed  which  works  as  a  pre-processor  to  the  SBAPC  system.  Depending  on 
the  signal -to-noise  ratio  of  the  additive  noise,  a  suppression  factor 
can  be  pre-determined  to  reduce  its  level.  The  integrated  SBAPC  algorithm 
with  the  pre-processor  has  yielded  highly  intelligible  speech  without 
much  of  the  annoying  background  noise  at  S/N  =  -6  dB.  Also,  the  SBAPC 
system  has  been  found  to  be  extremely  sensitive  to  channel  errors.  De¬ 
gradations  in  processed  speech  become  noticeable  at  the  bit  error  rate 
(BER)  of  5  x  10"4  and  the  system  yields  unintelligible  speech  at  10'2 
BER.  As  expected,  the  side  information  which  contains  the  quantized 
pitch,  PARCOR  coefficients  etc.  is  more  sensitive  to  channel  errors  than 
the  low  and  high  band  residual  signals.  In  fact,  one  or  two  errors 
occurring  on  the  side  information  can  result  in  a  frame  of  erroneous  data. 
Furthermore,  the  pitch  loop  in  the  SBAPC  algorithm  compounds  the  effect 
by  propagating  these  errors  over  several  frames.  In  this  study,  forward 
error  correcting  codes  have  been  found  to  be  a  viable  solution  to 
maintain  the  system  performance  over  a  high  error  rate  channel.  Particu¬ 
larly,  five  blocks  of  (63,45)  BCH  codes  have  been  incorporated  in  the 
16  Kb/s  SBAPC  scheme,  and  the  overall  system  is  robust  to 

channel  error  rates  as  high  as  10-2.  When  in  connection  with  LPC, 

the  SBAPC  algorithm  has  yielded  more  intelligible  speech  than  the  CVSD/LPC 
tandem. 

Informal  listening  tests  indicate  that  the  SBAPC  system  yields  much 
higher  speech  quality  than  that  of  CVSD  in  a  back-to-back  mode.  Also,  when 
compared  to  the  16  Kb/s  adaptive  transform  coder  (ATC)  (a  discussion  is  in¬ 
cluded  in  Appendix  F),  the  SBAPC  processed  speech  is  slightly  low-passed, 
but  its  smooth  quality  is  much  preferred  over  that  of  ATC  with  the  notice¬ 
able  "dish-washing"  background  noise.  Furthermore,  the  SBAPC  system  has 
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performed  well  in  simulated  tactical  situations.  Based  on  the  re¬ 
sults  obtained  in  this  study,  further  work  should  be  performed  to  refine 
the  algorithm  and  implement  it  in  real-time. 
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SECTION  II 


ALGORITHM  DEVELOPMENT 


2.1  Introduction 

The  Split-Band  APC  technique  is  basically  a  combination  of  two 
speech  coding  methods,  namely,  the  Adaptive  Predictive  Coding  (APC)  and 
Subband  coding  (SBC).  The  APC  method  is  well  known  for  its  efficiency 
in  processing  speech  waveforms  in  the  time  domain  whereas  the  SBC  is  one 
of  the  simplest  techniques  in  encoding  speech  in  the  frequency  domain. 

By  combining  these  two  techniques  together,  the  SBAPC  algorithm  yields 
high  quality  processed  outputs  without  much  additional  complexity.  In 
practice,  the  SBAPC  technique  calls  for  the  partitioning  of  the  input 
frequency  band  into  two  even  subbands  using  Finite-Impul se-Response  (FIR) 
filters  followed  by  the  application  of  different  quantizations  to  the  two 
subbands.  Since  the  pitch  and  the  first  formant  are  located  at  the  low 
frequency  band,  more  detailed  description  of  this  band's  waveform  pre¬ 
serves  these  perceptually  important  parameters  which  can  result  in  higher 
speech  quality.  On  the  other  hand,  the  upper  frequency  band  at  which  the 
unvoiced  sounds,  such  as  fricatives ,  are  situated  can  be  encoded  less  pre¬ 
cisely  without  hurting  the  overall  processed  speech  quality.  Consequently, 
the  SBAPC  algorithm  represents  one  of  the  most  efficient  methods  in  speech 
coding. 

The  block  diagram  of  a  Split-Band  APC  system  is  shown  in  Figure 
2.1.1.  Bandpass  filters  are  utilized  to  split  the  input  speech  frequency 
band  into  two.  Then  each  subband  signal,  after  resampling  at  its  Nyquist 
rate,  is  encoded  using  APC.  At  the  receiver,  the  digital  data  is 
decoded  using  APC.  After  up-sampling,  the  original  subband  signals  are 
created  and  the  difference  between  them  forms  a  replica  of  the  original 
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FIGURE  2.1.1:  BLOCK  DIAGRAM  OF  THE  SPLIT-BAND  APC  TECHNIQUE 


signal.  The  two  subband  signals,  derived  from  splitting  the  original  sig¬ 
nal  band,  appear  essentially  as  waveforms  with  non-flat  spectral  densities 
and  contain  a  considerate  amount  of  sample-to- sample  correlations  within 
each  individual  band.  For  these  correlated  signals,  the  APC  technique, 
which  attempts  to  minimize  the  rms  error  of  the  coded  signal,  is  an  effi¬ 
cient  method  of  encoding  the  speech  waveform  into  digital  form.  In  fact, 
operations  of  the  APC  algorithm  include  the  prediction  of  the  past  history 
of  the  waveform  and  the  coding  of  the  residual  error  signal 
formed  by  subtracting  the  estimate  from  the  input  speech.  In  this  algo¬ 
rithm,  efficient  encoding  is  achieved  because  quantization  is  only  applied 
to  the  residual  error  signal  and  prediction  parameters  which  have  signi¬ 
ficantly  less  dynamic  range  and  sample-to-sample  correlation  as  compared 
to  the  original  signal.  Moreover,  the  distortion  from  the  quantization 
of  the  residual  signal  is  the  major  source  of  speech  degradation. 

In  general,  the  power  of  the  quantization  noise  is  proportional  to  the 
power  of  the  residual  error  signal.  Thus,  accurate  prediction  is  essen¬ 
tial  to  the  minimization  of  this  quantization  error.  Although  small  quan¬ 
tization  error  does  not  always  mean  small  distortion  perceptually,  it 
generally  leads  to  the  production  of  a  high  quality  synthesized  speech. 

The  following  sections  will  discuss  the  design  of  a  special  class  of  split- 
band  filters  known  as  Quadrature  Mirror  Filters,  the  encodinq  of  both  low 
and  high  bands  using  APC  coders,  noise  shaping  algorithms,  and  the  quanti¬ 
zation  of  the  residual  waveforms. 
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2.2  Design  of  Quadrature  Mirror  Filters 

A  straightforward  way  of  achieving  band  splitting  is  to  perform  band¬ 
pass  filtering  with  the  translation  of  the  resulting  signal  spectrum  to 
DC.  This  spectral  translation  can  be  accomplished  in  a  variety  of  ways 
and  with  varying  cost  factors  concerning  efficiency,  spectral  distor¬ 
tion,  and  ease  of  implementation.  The  most  common  method  is  via  integer- 
band  sampling  where  the  original  signal,  after  filtering  into  several 
frequency  bands  of  bandwidths  f^  using  FIR  filters,  is  resampled  at  2f . . 

To  minimize  distortions  introduced  by  the  band-splitting  process  alone, 
filter  characteristics  such  as  flat  passband  response,  high  stop-band 
attenuation,  and  short  transition  region  are  extremely  desirable.  To 
satisfy  the  above  requirements,  the  FIR  filters  required  is  often  of 
large  order,  thus  increasing  the  amount  of  processing  tremendously. 

Recently,  Quadrature  Mirror  Filters  (QMF)  have  been  successfully 
applied  to  the  split-band  or  subband  coding  of  speech  signals  [l,  2]. 

It  has  been  shown  that  these  QMF's  can  assure  the  perfect  band-splitting 
and  reconstruction  of  the  input  signals  regardless  of  the  filter  length. 

For  the  sake  of  completeness ,  a  discussion  of  the  theory  of  QMF  is  in¬ 
cluded  in  Appendix  A.  It  illustrates  the  fact  that  if  the  half-band 
filters  satisfy  constraints  as  defined  in  Eqs.  (A-17  to  A-19),  no  spec¬ 
tral  distortion  is  introduced  in  the  band-splitting  and  reconstruction 
processes.  However,  a  filter  that  fulfills  exactly  all  the  QMF  con¬ 
straints  is  useless  for  a  split-band  coding  scheme.  To  illustrate 
this,  rewriting  Eq.  (A-13)  in  the  Appendix  A  yields: 


X(Z)  =  1/2[H?(Z)  -  Hi(Z)]x(Z) 


(2-1) 
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where  X(Z),  X(Z),  Hi(Z),  H2(Z)  are  the  Z-transforms  of  the  output,  the  in¬ 
put,  the  lowband  filter,  the  highband  filter,  respectively.  Defining  the 
transfer  function  of  the  overall  QMF  structure  as  H^p,  its  Z-transform  is 
given  by: 

Hqmf(2)  =  1/2[H?(Z)  -  H|(Z)]  (2-2) 

Equivalently,  its  impulse  response  is  shown  as: 

hQMF(n)  =  l/2^i(n)0h,(n)  -  h2(n)  ®h2(n))  (2-3) 

where0denotes  the  convolution  operation.  If  hi(n)  is  represented  by 
its  even  and  odd  parts, 

hi(n)  =  hie(n)  +  hi6(n)  (2-4) 


h2(n)  defined  as 

h2(n)  =  {-l)n  hjn)  n  ■  0,  1,  ...  N-l  (2-5) 

can  be  written  as: 

h2(n)  =  hie(n)  -  hiQ(n)  (2-6) 

Substituting  Eqs.  (2-4)  and  (2-6)  into  Eq.  (2-3),  hgMfr  becomes: 

hQMF(n)  =  2  hlg(n)  @hlQ(n)  (2-7) 

As  dictated  by  the  QMF  constraints,  the  perfect  bandsplitting  and  recon¬ 
struction  requires  HgMF(Z)  =  1  which  means: 

1  ;  n=0 

h0MF(n)  (2-8) 

m  (0  ;  n?0 

From  Eq.  (2-7),  this  is  only  valid  if  the  filter  h,(n)  has  two  non-zero 
and  identical  tap  values.  Hence,  a  true  QMF  can  indeed  be  designed,  but 
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its  two  tap  values  generally  do  not  yield  sharp  cutoff  characteristics. 
Moreover,  spl it-band  coding  techniques  really  do  not  offer  any  advantages 
over  the  full-band  schemes  unless  the  subbands  have  distinctly  different 
frequency  characteristics.  This  implies  that  the  split-band  filter 
should  be  a  higher  order  one  which  has  a  faster  roll-off  in  addition  to 
meeting  most  of  the  requirements  as  stated  in  Eq.  (A-17)  to  (A-19)  of 
Appendix  A. 

In  general,  the  half-band  filters  hi(n),  are  difficult  to  design 
when  using  conventional  computer-aided  design  algorithms  in  order  to 
satisfy  all  the  QMF  constraints.  Of  all  well-known  classes  of  digital 
filter  design  techniques,  the  McClellan- Parks  algorithm  is  the  most  pop¬ 
ular  [3].  This  algorithm,  which  uses  the  Remez  exchange  procedure,  in¬ 
troduces  several  extremes  in  both  pass  and  stopband  regions.  Although 
excellent  stopband  rejections  can  be  achieved,  the  ripples  cannot  be  .  .  . 
guaranteed  to  combine  in  such  a  way  that  Eq.  (A-19)  is  satisfied.  In 
addition,  since  the  3-dB  point  cannot  be  designed  easily  to  be  at  the 
half-band  frequency,  symmetry  requirements  are  not  easily  attanied.  To 
minimize  the  interaction  between  the  passband  and  the  stopband  of  the 
SBAPC  system,  design  techniques  that  yield  lowpass  filters  with  a 
smooth  passband  response  which  fall  off  sharply  after  the  3-dB  point 
and  which  have  high  stopband  rejection  have  to  be  investigated. 

2.2.1  The  Windowing  Technique 

One  simple  approach  to  design  lowpass  filters  that  possess  the  above 
characteristics  is  to  use  the  windowing  technique.  Depending  on  the  type 
of  windows  utilized,  short  transition  regions  can  be  realized  with  a 
relatively  low  filter  order.  To  illustrate  the  method,  let's  start 
with  the  frequency  response  of  an  ideal  lowpass  filter  given  as  [3]: 
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;  |w|  <  wc 
;  o.w. 


(2-9) 


where  a  is  the  delay  of  the  filter  and  wc  is  the  cutoff  frequency  in 
radians.  Then  the  impulse  response  of  the  ideal  filter  is  given  by  the 
inverse  Fourier  transform  of  Hd(e^w)  as: 


(2-10) 


In  order  to  design  a  finite-impulse-response  filter  with  a  zero  phase 
delay,  a  window  function  W(n)  is  applied  to  hd(n)  as  follows: 

h(n)  =  hd(n)  W(n)  (2-U) 

and  a  is  selected  as 


where  N  is  the  desired  filter  length. 

There  has  been  considerable  research  done  on  the  design  of  digital  filters 
with  various  window  functions  W(n).  For  these  windows,  the  tradeoffs 
between  different  filter  parameters,  such  as  the  passband  response, 
transition  region,  stopband  rejection,  etc.,  have  been  well  documented 
PH-  Among  them,  the  Hanning  window  which  results  in  filters  with  a 
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large  stopband  rejection  and  a  short  transition  region  with  relatively 
low  filter  order  can  be  applied  to  designing  QMF. 

In  this  case,  the  window  function  W(n)  given  as: 

W(n)  =  j  (l  -  Cos(j^l));  0<n<N-l  (2-13) 

is  multiplied  with  h^(n)  as  depicted  in  Eq.  (2-10).  In  order  to  satisfy 
the  QMF  constraints,  N  has  to  be  even  and  wc  has  to  be  determined  experi¬ 
mentally  to  cutoff  at  the  half-band  frequency.  Since  the  two  end-points 
of  the  Hanning  window  are  zeros, a  window  length  of  (N+2)  points  is  em¬ 
ployed  to  design  a  Nth  order  QMF. 

Frequency  responses  of  a  60-tap  and  a  32-tap  QMF  designed  using  the 
Hanning  window  are  shown  in  Figures  2.2.1  and  2.2.3.  Both  filters  exhit  it 
flat  passband  responses  of  less  than  0.07  dB  ripple,  large  stopband  re¬ 
jections  in  excess  of  50  dB  and  cutoff  frequencies  at  the  half-band 
point  (1600  Hz).  Though  the  32-tap  filter  has  twice  the  transition  band¬ 
width  (400  Hz)  as  compared  to  the  60-tap  one,  the  utility  of  the  shorter 
filter  in  the  SBAPC  algorithm  represents  a  good  compromise  between  com¬ 
plexity  and  performance.  Employing  these  filters,  the  frequency  responses 
of  unquantized  SBAPC  systems  are  shown  in  Figures  2.2.2  and  2.2.4.  Both 
graphs  depict  a  uniform  response  of  less  than  0.4  dB  ripple  which  further 
substantiate  the  fact  that  these  Hanning  filters  satisfy  most  of  the  QMF 
constraints  and  they  do  not  introduce  much  distortion  in  the  band-split¬ 
ting  and  reconstruction  process. 
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FIGURE  2.2.4:  MAGNITUDE  RESPONSE  OF  THE  UNQUANTIZED  SBAPC  SYSTEM 
WITH  THE  32-TAP  QMF 


2.2.2  The  Optimization  Technique 

As  discussed  in  Section  2.2.1,  the  Hanning  window  is  a  very  simple 
technique  to  design  filters  that  perform  like  QMF's.  Though  the  magni¬ 
tude  response  of  the  unquantized  SBAPC  system  that  utilizes  these  fil¬ 
ters  stil  1  exhibits  a  0.4  dB  "hump,"  it  is  nevertheless  a  good  starting 
point  in  designing  true  QMF's.  Recently,  an  optimization  procedure  has 
been  proposed  which  results  in  QMF  through  the  minimization  of  a  per¬ 
formance  index  defined  as 

E  *  Er  +  a  Es(fSB)  (2-14) 

where  a,  f<-B  are  the  weighting,  the  frequency  of  the  stopband;  Er  is  the 
ripple  energy  given  as; 


and  Es  is  the  out-of-band  energy  given  as: 


Es^fSB^ 


■n 

E 

w=f 


Hi(w) 


SB 


(2-16) 


Utilizing  the  filter  coefficients  obtained  through  the  Hanning  window 
scheme  as  a  starting  point,  an  iterative  search  algorithm  is  formulated 
in  locating  the  local  minimum  of  E.  QMF's  designed  using  this  metnod 
have  been  tabulated  and  an  example  of  a  32-tap  filter  is  included  in 
Table  2-1.  The  magnitude  response  of  the  filter  and  the  unquantized 
SBAPC  system  employing  this  filter  are  shown  in  Figure  2.2.5  and 
Figure  2.2.6,  respectively.  As  compared  to  the  32-tap  Hanning  filter 
as  depicted  in  Figures  2.2.3  and  2.2.4,  the  new  filter  is  greatly 
improved  in  the  sense  that  it  exhibits  a  flatter  unquantized  SBAPC  sys- 
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hi (0)  =  +0.69105790E-03  =  hi (31) 
hi(l)  =  -0. 14037930E-02  =  hi(30) 
h, (2)  =  -0.12683030E-02  =  hi (29) 
hi (3)  =  +0.42341950E-02  =  hi (28) 
hi (4)  =  +0. 14142460E-02  =  h2 (27) 
hi (5)  =  -0.94583180E-02  =  hi(26) 
hi (6)  =  -0.13038590E-03  =  hi(25) 
hi (7)  =  +0. 17981450E-01  =  h i ( 24 ) 
hi (8)  =  -0.41874830E-02  =  hi (23) 
hi (9)  =  -0.31238620E-01  =  hi(22) 
hi ( 10 )  =  +0. 14568440E-01  =  hi (21) 
h, (11)  =  +0.5294 74 50E-01  =  h,(20) 
hi (12)  =  -0.39348780E-01  =  hi ( 19) 
hi (13)  =  -0.99802430E-01  =  h,(18) 
hi (14)  =  +0.12855790E+00  =  h, ( 17) 
hi (15)  =  +0.46640530E+00  =  hi (16) 


TABLE  2-1:  TABULATION  OF  THE  32- 
TAP  QMF  DESIGNED  USING 
THE  OPTIMIZATION  METHOD 
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FIGURE  2.2.6:  MAGNITUDE  RESPONSE  OF  AN  UNQUANTIZED  SBAPC  SYSTEM 
WITH  THE  32-TAP  QMF  DESIGNED  USING  THE  OPTIMIZATION 
TECHNIQUE 


tem  response  without  sacrificing  much  transition  bandwidth  and  stopband 
rejection.  Though  informal  listening  tests  conducted  on  the  unquantized 
SBAPC  processed  sentences  with  the  two  32-tap  QMF' s  indicate  no  audible  dif¬ 
ferences,  S/N  ratio  plots  of  these  systems,  as  depicted  in  Figure  2.2.7, 
show  that  the  new  filter  consistently  out-performs  the  Hanning  filter 
especially  during  voiced  regions.  As  a  result,  the  32-tap  filter  designed 
using  the  optimization  procedure  is  employed  in  the  subsequent  studies. 

2.3  Adaptive  Predictive  Coding  of  Split-Band  Signals 

APC  algorithms  have  been  extensively  studied  and  reported  on  in  the 
literature  £6^]  -  Most  systems  differ  from  one  to  another  in  the 

manner  of  parameter  extractions  and  the  design  of  quantizers  with  various 
level  of  complexity.  In  this  section,  the  design  of  adaptive  predictive 
coders,  which  minimizes  the  power  of  quantization  error  or  maximizes  the 
signal -to-quantization  noise  (S/Q),  will  be  considered. 


FIGURE  2.2.7:  COMPARISONS  OF  UNQUANTIZED  SBAPC  SYSTEMS  WITH  TWO 
_ _  DIFFERENT  QMF'S 


FRAME 


2.3.1  Adaptive  Predictive  Coder  with  one  Loop 

The  APC  system  with  one  loop  is  shown  in  Figure  2.3.1.  In  this  scheme, 
the  estimate  of  the  present  speech  sample  is  assumed  to  be 
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(2-17) 


where  M  represent  the  number  of  speech  samples  in  one  pitch  period  and  P  is 
the  predictor  order  in  the  prediction  loop.  Here,  we  consider  a  3rd  order 
pitch  predictor,  although  a  first  order  pitch  predictor  is  common  in  conven 
tional  APC  systems.  The  difference  between  the  input  speech  sample  sn  and 
the  estimate^  can  be  expressed  as: 
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(2-18) 


The  total  squared 


error  may  be  shown  as: 
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(2-19) 


where  L  is  the  number  of  samples  within  a  frame.  In  order  to  minimize  the 
total  squared  error,  E  is  differentiated  with  respect  to  £a.j,  b^  and  set¬ 
ting  the  results  to  zeros,  yields: 


Ra  =  c 


(2-20) 
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DIAGRAM  OF  AN  APC  SYSTEM  WITH  ONE  LOOP 


where  R  is  an  autocorrelation  matrix;  £  and  £  are  column  vectors  defined 


as: 


a  = 


(2-21) 


and 


c  = 


(2-22) 


where  r^  is  the  autocorrelation  coefficient  of  the  input  speech  sp  with 
that  of  a  delay  i.  Let  the  column  vector  d^  be 


then  the  elements  of  the  autocorrelation  matrix,  R,  can  be  expressed  as 


‘  ridi-dji 
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n=l 


sn  V|d1-dj| 


(2-24) 


In  this  APC  scheme,  the  autocorrelation  coefficients^.] are  needed  to  define 
the  vector  c  in  eq.  (2-22)  and  the  autocorrelation  matrix  R  in  eq.(2-24). 

Since  the  number  of  the  required  autocorrelation  coefficients  is  large,  their 
calculation  can  be  best  made  via  the  fast  Fourier  transform  technique.  Then 
the  calculation  of  ,  b.]  can  be  performed  from  eq.(2-20)  by  multiplying 
the  inverse  of  the  matrix  R  with  c  as  follows: 


a=R‘1c  (2-25) 

The  values  of  the  column  vector  a^will  be  used  for  the  computation  of  the 
residual  signal. 
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2.3.2  Adaptive  Predictive  Coder  with  two  Loops 

The  block  diagram  of  a  two-loop  APC  system  is  shown  in  Figure  2.3.2. 
In  this  scheme,  the  predictor  loops  are  divided  into  Pi  and  P2.  Acknowl¬ 
edging  the  fact  that  speech  signals  are  often  quasi-periodic  with  period 
M,  the  loop  Pi  can  be  used  to  reduce  the  redundancy.  In  particular,  if  a 
3rd  order  pitch  predictor  is  utilized,  the  present  sample  may  be  estimated 
as: 


3lSn-M+l  + 


6zSn-M  + 


n-M-1 


(2-26) 


where  6^‘s  are  the  pitch  prediction  coefficients.  Third  order  pitch  pre¬ 
dictor  is  best  used  to  compensate  the  effects  of  the  quantization  error  in 
estimating  the  pitch  period.  Let  the  residual  error  be 


=  sn  "  8lSn-M+l  '  6zSn-M  '  0jSn-M-l 


Then,  the  total  squared  error  may  be  expressed  as: 
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where  L  is  the  number  of  samples  within  a  frame.  In  order  to  minimize  the 
total  squared  error,  differentiating  E  with  respect  to  6i  and  setting  the 
results  to  zeros,  ydeld: 
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FIGURE  2.3.2:  BLOCK  DIAGRAM  OF  AN  ADAPTIVE  PREDICTIVE  CODER  WITH  TWO  LOOPS 
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where 
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=  E 
n=l 
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i  =  1,  2,  3 


(2-29) 
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and 


L 

ri  j  =  Sn-M+2-i  Sn-M+2-j 


i,  j  =  1,  2,  3  (2-31) 


For  quasi-periodic  inputs,  such  as  vowels,  the  magnitude  of  is  large  while 
the  magnitude  of  is  near  zero  for  noise-like  consonants. 

The  reduced  waveform  still  contains  sufficient  redundancy  such  that  a 
second  predictor  loop  can  further  reduce  the  output  signal  energy,  espe¬ 
cially  if  the  speech  is  not  periodic  or  if  the  pitch  period  is  estimated  in¬ 
correctly.  This  second  predictor  uses  a  weighted  sum  of  P  past  samples  of 
the  speech  waveform  to  form  the  estimate  as 
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n-i 


(2-32) 


where  P  is  the  order  of  the  predictor  and  £a..ys  are  chosen  to  minimize  the 
total  squared  error 
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(2-33) 


L 

U  =  Z 
n=l 
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The  predictor  coefficients  can  be  obtained  by  inverting  the  following  matrix 
equation: 

<j>a  =  c  (2-34) 


where  the  (i*\  jt^1) 


element  of  4>  is  given  as: 


=  l  V„  ,  V_  , 

n=l 


XL. 

and  the  iLn  element  of  c  is  shown  as: 


C-  =  £  v_  v  . 

1  n=l  n  n_1 


(2-35) 


(2-36) 


If  we  window  the  reduced  waveform  so  that  it  is  zero  outside  the  frame  in¬ 
terval  I  <  n  <  L  (stationary  assumption),  eq.(2-34)  is  reduced  to  the  auto¬ 
correlation  normal  equation; 
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This  is  a  symmetric  Toeplitz  matrix  because  the  elements  along  the 
principal  diagonal  and  those  that  are  parallel  to  the  diagonal  are  identi¬ 
cal.  Efficient  solutions  exist  that  result  in  a^'s  that  minimize  the  mean 
squared  energy  U  in  the  difference  signal.  In  addition,  because  the  ele¬ 
ments  of  the  matrix  arise  from  an  autocorrelation  function,  the  stationary 
matrix  solution  for  the  a^S  will  yield  a  stable  filter  during  synthesis, 
with  the  recursive  filters  shown  in  Figure  2.3.3.  Unfortunately,  the  a^s 
are  not  good  transmission  parameters  because  quantization  or  errors  in 
transmission  can  cause  the  poles  of  the  receiver  filter  given  by  1/ ( 1-Pi ) 
(l-P2)  to  move  outside  the  unit  circle  in  the  Z-plane,  resulting  in  unstable 
waveforms.  Consequently,  auxiliary  parameters  called  Partial  Correlation 
(PARCOR)  coefficients  Ki  (which  are  the  negatives  of  reflection  coeffi¬ 
cients)  are  calculated  from  the  a/s,  and  as  long  as  these  PARCOR  coeffi¬ 
cients  have  magnitudes  less  than  unity,  system  stability  is  assured. 

In  the  actual  APC  algorithm,  instead  of  quantizing  the  error  signal 
as  depicted  in  Figure  2.3.2,  the  analyzer  is  re-formulated  with  the  quan¬ 
tizer  placed  inside  the  filtering  loop  as  shown  in  Figure  2.3.3.  In  the 
absence  of  the  quantizer,  this  configuration  has  the  same  transfer  func¬ 
tion  ( 1  - P i )  (1-P2)  as  that  of  Figure  2.3.2.  However,  with  this  new  formu- 
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FIGURE  2.3.3  RECONFIGURATION  OF  THE  ANALYZER  OF  A 
TWO-LOOP  APC  TO  MINIMIZE  THE  EFFECT  OF 
QUANTIZATION 
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lation,  it  can  be  shown  that  the  accumulation  of  quantization  errors  is 
eliminated.  To  illustrate  this,  the  synthesized  sample  Rp  is  rewritten  as 
follows: 


A 

R  =  Vn  +  R 
n  n  n 


A  A 

=  vn  +  s„  -  vn 

n  n  n 


A 

=  En  +  Sn 


(2-39) 


Also,  En  is  given  by: 
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s  -  s 

n  n 


+  % 


(2-40) 


where  qn  is  the  quantization  noise  generated  at  the  nth  sample.  Substi¬ 
tuting  eq.(2-40)  into  (2-39),  the  following  is  obtained: 

%  <2 


From  eq.(2-41),  it  is  clear  that  the  APC  synthesized  outputs  are  exactly 
equal  to  the  inputs  except  for  the  quantizing  noise  qn>  In  the  case  of  the 
APC  system  with  the  quantizer  outside  the  predictor  loop,  the  synthesized 
output  Rn  is  given  by: 


/V 

R  =  S  +  q_ 
n  n  nn 


(2-42) 
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where  qn  is  defined  as  the  output  obtained  when  the  quantizer  noise  qn  is 
fed  into  the  inverse  ARC  filter 


A' 


+  E  aiVi 


(2-43) 


With  the  APC  system  shown  in  Figure  2.3.2,  the  synthesized  output  is  an  esti¬ 
mate  of  the  input  signal  plus  quantization  noise  which  is  an  accumulation  of 
previous  errors.  Hence,  with  the  use  of  the  system  shown  in  Figure  2.3.3, 
this  accumulation  effect  can  be  totally  avoided. 

After  computing  the  pitch  gain  g. ,  the  period  M,  and  the  PARCOR  coeffi¬ 
cient  K.j ,  the  analyzer  digitally  filters  the  speech  and  quantizes  the  error 
signal.  Then  the  ,  g^,  M,  the  quantized  error  sequence  en,  are  quantized 
and  sent  to  the  receiver  where  the  predictor  coefficients  are  regenerated 
iteratively  by  computing: 


3(1)  ' 


j  =  1,  2,  3 .  i  -1  (2-44) 

i  =  1,  2,  3,  ....  p  (2-45) 


where  a , ^  represents  a.  on  the  ith  iteration. 

J  J 

The  synthesizer  then  creates  an  output  time  waveform  that  is  both 
intelligible  and  pleasing  to  listen  to.  Moreover,  this  output  is  reason¬ 
ably  insensitive  to  errors  in  pitch  extraction,  because  the  P2  predictor  on 
the  reduced  waveform  and  the  quantization  of  the  error  signal  can  partially 
compensate  for  wrong  pitch  values  used  in  the  first  predictor  PI.  In  fact. 
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if  the  pitch  period  is  incorrectly  doubled,  as  it  often  happens  in  practice, 
then  predictions  made  by  the  first  loop  PI  are  generated  from  those  that 
are  two  periods  before,  and  this  Is  not  a  serious  error.  If  incorrect 
values  for  M  are  chosen,  different  values  of  and  PARCOR  coefficients  are 
also  computed  to  compensate  In  part  for  this  error.  Finally,  the  error 
signal,  though  coarsely  quantized,  carries  considerable  information 
about  the  true  pitch,  should  this  pitch  be  incorrectly  measured.  Thus,  the 
APC  processed  speech  does  not  show  severe  degradation  even  in  noisy  acoustic 
environments  and  with  many  speakers  where  accurate  pitch  extraction  is  dif¬ 
ficult. 


2.3.3  Tradeoff  Analysis  of  SBAPC  Systems 

There  are  several  parameters  that  affect  the  performance  of  a  SBAPC 
system  for  a  given  transmission  data  rate,  and  they  are:  the  sampling 
rate,  the  frame  size  or  duration,  the  number  of  prediction  loops,  the 
order  of  the  short-term  predictors,  the  order  of  the  pitch  predictor, 
quantizer  characteristics,  bit  allocations  between  side  information  param¬ 
eters  and  residual  error  signals,  and  bit  allocations  between  low  and  high 
band  signals.  In  this  study,  a  tradeoff  analysis  has  been  performed  between 
the  number  of  prediction  loops,  the  order  of  the  short-term  predictor,  and 
the  order  of  pitch  predictors  in  each  band.  Other  factors  relating  to  the 
performance  of  the  SBAPC  system  have  been  fixed  at  values  given  by: 
sampling  rate  =  6400  Hz,  frame  size  or  duration  =  22.5  msec,  number  of 
bits  for  encoding  low-band  error  signal=3,and  number  of  bits  for  encoding 
high  band  error  signal  =  2.  These  configurations  lead  to  a  data  rate 
slightly  higher  than  16  KBPS.  Laplacianr  quantizers  [9.  10]  were  used  for  the 
quantizatization  of  low  and  high  band  error  signals  until  the  new  quantizer 
was  developed  from  the  actual  distribution  of  the  error  signal's  ampli¬ 
tudes.  Quantizations  were  not  applied  to  the  parameters  of  side  informa¬ 
tion,  since  the  first  objective  of  this  tradeoff  analysis  was  to  determine 
the  number  of  loops  and  the  order  of  the  predictor  in  each  loop.  The  quan¬ 
tizations,  bit  allocations  to  the  side  information,  the  residual  error  sig¬ 
nals,  and  forward  error  correcting  code  will  be  considered  in  the  later 
sections. 


2.3.3. 1  The  Performance  of  the  S8APC  System  with  one  Loop 

The  block  diagram  of  a  SBAPC  system  with  one  loop  is  shown  in  Figure 
2.3.4.  In  this  scheme,  only  short-term  predictors  are  considered  in  the  high 
band  prediction  loop,  since  the  signals  of  the  high  band  often  contain 
little  information  of  pitch.  The  performance  in  terms  of  the  signal -to- 
quantization  noise  ratio  (S/Q)  is  tabulated  in  Table  2.2.  In  this  experi¬ 
ment,  the  data  rate  used  for  encoding  the  error  signal  is  16  Kb/s.  While 
the  total  data  with  side  information  is  higher  than  16  Kb/s,  the  purpose 
is  to  study  the  tradeoffs  between  the  pitch  predictor  and  various  predictor 
orders  of  the  high  and  low  bands.  As  it  is  noted  from  this  table,  the  signal  - 
to-quantization  noise  ratio  (S/Q)  is  high  (about  20  dB).  Consequently, 
the  quality  of  the  synthesized  speech  is  very  high.  The  performance  of 
this  scheme  is  better  with  a  larger  order  of  short-term  predictors. 

A  typical  S/Q  plot  of  the 

1-loop  SBAPC  systems  with  and  without  the  pitch  predictor  are  shown  in 
Figure  2.3.5.  As  it  is  noted  from  this  figure,  the  performance  is  insensi¬ 
tive  with  respect  to  the  presence  of  the  pitch  predictor.  Only  one  pitch 
related  predictor  is  considered  in  the  evaluation  of  performance  since  the 
system  is  often  unstable  for  large  order  (>  2)  of  pitch  related  predictors. 
Also,  the  S/Q  from  Table  2.2  indicates  that  small  number  of  prediction 
coefficients  (=4)  is  preferable  since  the  performance  does  not  improve 
significantly  when  more  than  4  prediction  coefficients  are  used. 
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FIGURE  2.3.4  BLOCK  DIAGRAM  OF  THE  SBAPC  SYSTEM  WITH  ONE  LOOP 
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20 . 47+ 
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★ 

20.12  * 

20.17  * 
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20.66+ 

20.70+ 

20.19 

★ 

20.48* 

20.53  * 

8 

20.55 

+ 

20.87 

20.92+ 

20.31 

★ 

20.61  * 

20.65  * 

+  with  one  pitch  predictor 
*  with  no  pitch  predictor 


HB  =  High  Band 
LB  =  Low  Band 


Table  2.2:  Sipnal-to-Quantization  Noise  Patiop  of  the 
SHA pO  Svstem  with  one  loon  at  16  KBPS 
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FIGURE 


2. 3. 3. 2  The  Performance  of  a  S8APC  System  with  two  Loops 

The  block  diagram  of  a  S8APC  system  with  two  loops  is  shown  in  Figure 
2.3.6.  In  this  scheme,  only  short-term  predictors  (one  loop)  are  consid¬ 
ered  in  the  high  band  since  signals  of  the  high  band  after  downsampling 
often  contain  little  information  about  pitch.  The  performance  in  terms 
of  S/Q  are  tabulated  in  Table  2.3  with  the  order  of  predictors  as  a  vari¬ 
able.  The  S/Q  of  the  SBAPC  system  with  two  loops  increases  as  the  order 
of  the  low-band  predictors  increases  as  shown  in  Table  2.3.  However,  the 
improvement  is  not  that  dramatic  with  the  increase  in  hiqher  band  predictors. 
The  SBAPC  system  with  one  loop  (when  the  pitch  information  is  not  used) 
performs  as  well  as  this  scheme  for  unvoiced  frames.  However,  the 
SBPAC  system  with  two  loops  always  performs  better  than  the  system  with 
one  loop  for  voiced  speech.  In  this  scheme,  the  first  order  pitch  loop 
results  in  an  increase  of  2-3  dB  of  S/Q  over  the  scheme  with  no  pitch  pre¬ 
dictor.  An  additional  increase  of  1-2  dB  of  S/Q  may  be  obtained  if  three 
pitch  predictors  are  used,  but  the  system  is  sometimes  unstable  at  low 
data  rates.  At  16  KBPS,  these  distortions  are  not  noticeable’ in  informal 
listening  tests.  As  the  data  rate  decreases  to  9.6  KBPS,  the  lowering 
in  S/Q  becomes  more  perceptable.  Especially  noticeable  is  the  hissing 
noise  at  high  frequencies  when  no  pitch  loop  was  used.  This  noise  de¬ 
grades  much  of  the  speech  quality  at  data  rates  below  9.6  KBPS. 


2-37 


FIGURE  2.3.6  BLOCK  DIAGRAM  OF  A  SBAPC  SYSTEM  WITH  TWO  LOOPS 


with  one  pitch  predictor 
*  with  three  pitch  predictors 


^able  2.3  Sip;nal-to  Quantization  Noise  Ratio  of  a 
SBApC  System  with  two  looos  at  16  KBPS 


J 

2.4  The  Shaping  of  Quantization  Noise  in  SBAPC  Systems 

The  split-band  adaptive  predictive  coding  technique  has  been  proven 
to  be  an  efficient  method  for  encoding  speech  signals  at  16  Kbps.  Though 
the  SBAPC  system  attempts  to  minimize  the  rms  value  of  the  error  signals 
in  the  coded  speech,  low  amplitude  quantization  error,  however,  does  not 
always  ensure  perceptually  small  distortion  in  the  processed  speech.  It 
has  been  suggested  that  higher  quality  speech  can  be  obtained  by  the  ad¬ 
justment  of  the  noise  spectral  shape  without  changing  the  rms  value  of  the 
error  signals.  In  the  next  section,  two  techniques  of  noise  shaping  will 
be  considered  fll,  12 | .  The  first  method,  proposed  by  Makhoul , 
changes  the  flat  spectrum  of  the  quantization  noise  to  resemble  that  of 
the  input  speech,  whereas  the  second  technique,  originated  by  Atal , 
attempts  to  flatten  the  noise  spectrum.  Though  the  objective  of  both 
techniques  is  to  enhance  the  quality  of  the  synthesized  speech  without 
additional  overhead  bits;  the  complexity,  stability  of  the  algorithms, 
and  the  flexibility  of  the  noise  spectral  shaping  are  quite  different. 

2.4.1  Makhoul's  Noise  Shaping  Technique 

The  transmitter  portion  of  the  basic  APC  system  is  shown  in  Figure 
2.4.1.  In  this  figure,  S(z)  represents  the  z  transformation  of  the  input 
speech  sn,  n=l,  ...  L  where  L  is  the  number  of  samples  in  one  frame  in¬ 
terval.  C(z)  represents  the  transfer  function  of  the  pitch  prediction 
loop  which  is  given  by: 

C(z)  =  1  -  az"M  (2-46) 

where  M  is  the  number  of  speech  samples  in  one  pitch  period  and  ct  is  the 
pitch  gain  parameter,  a  is  computed  in  order  to  minimize  the  total 
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(2-47) 


L 

squared  error  E  =  E  (Sn  -  Sn_j^)2 
and  it  can  be  expressed  as: 


a  = 


E  S  S 
n=l  n  n~W 
L 

E  S*  M 
n=l  n"M 


(2-48) 


The  transfer  function  of  the  short-term  prediction  can  be  written  as: 


A(z)  =  1  +  E  a.z 
k=l  K 


-k 


(2-49) 


where  {a^J's  are  the  linear  prediction  coefficients.  W(z)  represents  the 
z  transform  of  the  APC  residual  signal  which  includes  the  effects  of  the 
quantization  noise  Q(z);  i.e., 

Q(z)  =  W(z)  -  W(z)  (2-50) 

where  W(z)  is  the  z  transform  of  the  APC  residual  signal  only.  U(z)  is 
the  residual  error  signal  with  unit  variance  and  can  be  written  as: 

U(z)  =  G  W(z)  (2-51) 

where  G  is  a  normalization  gain  factor.  The  spectrum  of  W(z)  is  assumed 
to  be  flat  which  is  a  reasonable  assumption,  since  the  residual  error 
appears  to  be  highly  uncorrelated.  Thus,  the  input  of  the  quantizer  is 
assumed  to  be  white  and  has  unit  variance.  At  the  receiver,  U(Z),  after  multi¬ 
plying  G"1,  is  sent  through  the  all-pole  linear  prediction  filter  1/A(z), 
and  the  pitch  prediction  filter  1/C(z).  The  output  signal  at  the  re- 
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ceiver  is  exactly  equal  to  the  signal  V(z)  for  voiced  speech  or  R(z)  for 
unvoiced  speech,  provided  the  digital  data  transmission  is  error-free. 

The  main  idea  in  noise  shaping  is  to  employ  a  linear  filter  and  modify 
the  quantization  noise  according  to  a  pre-determined  perceptual  criterion. 
For  simplicity  reasons,  the  analysis  will  be  conducted  without  the  pitch 
loop.  In  this  manner,  the  reconstructed  signal  R(Z)  is  given  by: 

R(Z)  =  S(Z)  +  B(Z)Q(Z)  (2-52) 

where  B(Z)  is  the  z-transform  of  the  shapinq  filter.  Since  R(Z),  as  shown 
in  Figure  2.4.1,  is  also  equal  to: 

A 

R(Z)  =  =  (W(Z)  +  Q<Z>)/A(Z>  (2_53) 

Equating  Eq.  (2-53)  with  (2-52),  the  result  becomes: 

W(Z)  =  A(Z)S(Z)  +  |A(Z)B(Z)  -  ljQ(Z)  (2-54) 

Adding  and  subtracting  S(Z)  +  B(Z)Q(Z),  Eq.  (2-54),  can  be  rewritten  as: 

W(Z)  =  S(Z)  +  (B(Z)  -  l)  Q(Z)  +  (A(Z)  -  l)(s(Z)  +  B(Z)Q(Z))  (2-55) 

Substituting  Eqs.  (2-52)  and  (2-53)  into  (2-55),  the  following  is  obtained: 

W(Z)  =  S(Z)  +  (B(Z)  -  l)p(Z)  +  (A(Z)  -  l)(w( Z )/ A( Z ))  (2-56) 

The  noise  shaping  algorithm,  as  illustrated  in  Eq.  (2-56)  is  depicted  in 
Figure  2.4.2. 


FIGURE  2.4.2  BLOCK  DIAGRAM  OF  THE  APC  SYSTEM  WITH  NOISE  SHAPING 


In  this  study,  the  simple  and  stable  second  order  all -zero filter  is  em- 

2 

ployed  as  B(Z).  Its  transfer  function,  given  as  B(Z)  =  E  b-z  ,  is  esti- 

•  i=0  1 

mated  from  the  original  transfer  function  of  the  predictor  coefficients  A(Z)  as 
follows: 


P-MI 

p.  *  E  a(k)a(k+|i|)  0  <  i  _<  2 

k=0 


(2-57) 


where  pis  the  order  of  the  filter  A(Z).  The  coefficients  bn  are  com¬ 
puted  from  the  set  of  linear  normal  equations: 


2 

E 

n  =1 


bn  °t-n  *  -pi 


1  <  i  <  2 


(2-58) 


and  this  results  in: 


b0  =  1 

bi  *  pi(p2  -  p o ) / ( P o 2  -  Pi2)  (2-59) 

b2  =  (pi2  -  PoP 2)/ (Po2  -  Pi2) 

To  study  the  effect  of  noise  shaping  on  the  SBAPC  system,  the  2nd  order  all¬ 
zero  filter,  as  given  in  Eq.  (2-59),  has  been  incorporated.  In  particular, 
the  performance  of  the  combined  system  at  the  data  rate  8  Kbps  (quantiza¬ 
tion  of  error  signal  only,  excluding  side  information)  has  been  investi¬ 
gated.  The  results  in  terms  of  S/Q  are  tabulated  in  Table  2.4  for  the 
SBAPC  system  with  and  without  noise  shaping  on  each  band.  As  it  is  noted  in 
Table  2.4,  maximum  signal -to-quantization  noise  ratio  is  achieved  with  the 
absence  of  noise  shaping  on  both  bands,  but  the  output  speech  obtained 
without  noise  shaping  exhibits  a  rough  quality  together  with  some  disturbing 
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background  noise.  However,  these  noises  disappear  when  noise  shaping  is 
applied.  Informal  listening  tests  further  suggest  that  noise  shaping  in 
the  high  band  does  not  enhance  the  subjective  speech  quality  for  male 
speakers.  However,  more  careful  listening  tests  reveal  that  the  "beeping" 
noise  which  occurs  frequently  with  female  speakers  at  low  data  rates 
(e.g.,  8  Kb/s)  is  reduced  when  noise  shaping  is  applied  to  both  high  and 
low  bands.  For  higher  data  rate  systems  ( >16  Kb/s),  noise  shaping  is  not 
really  helpful* 


2.4.2  Atal 's  Noise  Shaping  Technique 

The  block  diagram  of  a  generalized  adaptive  predictive  coder  with 
adjustable  noise  spectrum  is  shown  in  Figure  2.4.3.  In  this  figure,  the 
speech  samples  {sp}  pass  through  the  inverse  linear  prediction  filter, 

1  -  A(z) ,  where 

m  -k 

A(z)  =  Z  a.  z  *  (2-60) 

k=l  K 


and  m  is  the  order  of  the  filter  and  (a^l's  are  the  linear  prediction  fil¬ 
ter  coefficients.  The  output  of  the  filter  may  be  expressed  as 


d 


n 


w  *k  s"-k 


(2-61) 


Then  dp  is  fed  into  the  quantizer  loop.  For  the  sake  of  simplicity,  the 
pitch  loop  is  ignored.  Then,  the  quantizer  noise  6p  defined  as  the  differ¬ 
ence  between  the  quantizer  output  qp  and  the  quantizer  input  qp  may  be  ex¬ 
pressed  as 
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FIGURE  243  BLOCK  DIAGRAM  OF  THE  GENERALIZED  APC  SYSTEM  WITH 
ATAL'S  NOISE  SHAPING  TECHNIQUE 


output  of  this  filter  f  is  subtracted  from  dn  to  yield  the  quantization 
noise  as: 


q  =  d  -  f 
nn  n  n 


s-Ea.s.-Eb.S, 
n  k=l  k  n_k  k=l  k  n“k 


(2-63) 


where  m'  is  the  order  of  the  feedback  loop  noise  shaping  filter  and  { bk> ' s 
are  the  coefficients  of  the  filter  F(z)  defined  as: 


F(z)  =  E  b,  z 
k=l  K 


(2-64) 


The  output  of  the  predictive  coder  can  now  be  expressed  as: 


A  A 

S  =  q  +  £ 
n  sn  sn 


A  A 

q  +  Z  aL  s  . 
n  k=l  k  n”k 


q_  +  <5_  +  Z  a.  s„  w 
n  n  k  n-k 


\  ak<s„-k  -  sn-k>  *  5„  -  »k  Vk 


(2-65) 


Taking  the  z  transformation  of  this  equation  yields 


S(z)  -  S(z)  =  A(z)  \r^rM 


(2-66) 
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A  A 

where  A(z),  S(z),  S(z)  represent  the  z  transform  of  6  ,  sn,  and  sn,  respec¬ 
tively.  The  total  processing  noise  will  be  the  same  as  the  quantizer  noise 
A(z),  if  F(z)  equals  A(z).  In  other  words,  the  spectrum  of  the  output  noise 
can  be  controlled  with  great  flexibility  with  the  feedback  filter  F(z). 
Assuming  that  the  power  of  the  quantizer  noise  6n  does  not  vary  signifi¬ 
cantly  by  the  feedback  loop  F(z),  the  average  value  of  the  power  spectrum 
of  the  output  noise  is  determined  only  by  the  quantizer  and  is  not  altered 
by  the  choice  of  F(Z)  or  A(Z).  However,  the  filter,  F(z),  distributes  the 
noise  power  from  one  frequency  to  another.  Thus,  reduction  of  quantizer 
noise  at  one  frequency  can  be  obtained  at  the  expense  of  increasing  the 
quantizer  noise  of  another  one.  Since  a  large  part  of  the  perceived  noise 
in  a  coder  comes  from  the  frequency  regions  where  the  signal  is  low,  the 
filter  F(z)  may  be  used  to  reduce  the  noise  in  such  regions  while  increasing 
the  noise  in  the  formant  regions  where  the  noise  could  be  effectively 
masked  by  the  speech  signal.  It  is  also  assumed  that  the  quantizer  noise 
is  uncorrelated  with  the  prediction  error  signal,  which  is  a  reasonable 
assumption,  particularly  when  the  prediction  error  signal  is  white.  Then 
the  power  of  the  quantizer  may  be  expressed  as 

Eq  ■  Ep  ♦  Ef  (2-67) 

where  Ep  is  the  power  of  the  prediction  error  signal  and  Ef  is  the  power  of 
the  filtered  quantized  noise.  In  many  cases,  it  is  desirable  to  have  a 
small  Ef  to  ensure  the  small  changes  of  the  quantized  noise.  Atal  suggested 
that  the  APC  system  of  Figure  2.4.3  can  be  operated  in  stable  condition  by 
adding  a  high  passed  filtered  noise  to  the  input  speech.  Consequently,  the 
terms  in  the  covariance  matrix  and  the  correlation  vector  have  to  be  modi- 


A 


=  y 


ij 


+  X  Emin  ui-j 


(2-68) 


and 


A 

Ci  =  Ci 


+  X  Emin  *i 


(2-69) 


where 


Y«  ■  \Vi  Vj) 
C1  '  <*„  V,> 


The  A  in  eq.  (2-68)  is  a  small  constant  in  the  range  0.01-0.1,  Emin  is  the 
minimum  value  of  the  mean  squared  prediction  error,  yi  is  the  autocorrela¬ 
tion  of  the  high-pass  filtered  white  noise  at  a  delay  of  i  samples,  and 
<•>  denotes  time  averaging.  In  this  study,  's  are  chosen  to  be  y0  =  3/8, 
yi  =  1/4,  y2  =  1/16,  yk  =  0  for  k  >  3.  With  the  addition  of  the  high 
passed  filtered  noise,  the  stability  of  the  feedback  loop  filter  is  in¬ 
creased. 

The  quantizer  input  {qn)  in  Figure  2.4.3  sometimes  contain  large  ampli¬ 
tudes  especially  for  periodic  signals  in  voiced  speech.  However,  the  large 
amplitudes  can  be  removed  by  pitch  prediction.  The  transfer  function  of 
this  pitch  loop- may  be  expressed  as: 

Pd(z)  =  Siz"  M+1  +  S2z'M  +  Bsz'"'1  (2-72) 

where  M  represents  the  number  of  samples  in  one  pitch  period  and  Si ,  32, 

83  are  the  filter  coefficients  in  the  pitchfilter.  The  values  of  81 ,  82,  83 
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may  be  obtained  from  the  set  of  simultaneous  linear  equations,  which  is 
described  in  section  2.3.2. 

The  addition  of  the  high  pass  filtered  noise  to  the  speech  input  in¬ 
creases  the  stability  of  the  quantization  feedback  loop.  A  simple  and 
effective  solution  to  ensure  the  stability  of  the  feedback  loop  is  to 
limit  the  peak  amplitude  of  the  sample  f  as  shown  in  Figure  2.4.3.  The 
appropriate  peak  limiter  in  the  feedback  loop  limits  the 
samples  { f n }  to  a  maximum  value  of  twice  the  rms  value  of  the  prediction 
error.  For  some  choices  of  F(z),  several  instances  of  instability  in 
the  feedback  loop  have  been  encountered  without  peak  limiter.  However,  the 
inclusion  of  the  peak  limiter  in  the  feedback  loop  removes  instability 
in  those  frames,  and  it  does  not  increase  the  quantization  noise  signi¬ 
ficantly.  Atal  suggested  that  the  feedback  loop  filter  shown  as 

F(z)  =  A(az-1) ,  0<a<l  (2-73) 

is  a  good  choice  because  of  the  simplicity  and  flexibility  of  controlling 
the  spectral  shape  of  the  quantization  noise. 

The  above  noise  shaping  method  was  applied  to  the  SBAPC  algorithm. 
Several  choices  of  the  feedback  loop  filter  F(z)  were  considered  in  each 
band  and  their  S/Q's  are  tabulated  in  Table  2.5.  For  a„  =  a.  =  0  (or 
F(Z)  =  0  in  both  low  and  high  bands),  the  quantization  noise  has  the 
same  spectral  envelope  as  the  original  speech  as  illustrated  in  the  spec¬ 
tral  plot  of  1  frame  of  data  in  Figure  2.4.4.  This  particular  choice  of 
a's  leads  to  a  noisy  output  of  11.61  dB  S/Q  at  8  Kb/s  (excluding  side  in¬ 
formation).  As  the  value  of  a  increases,  the  performance  of  the  SBAPC 
scheme  in  terms  of  S/Q  improves.  The  ratio  tends  to  reach  the  maximum 
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\a  in 

HB 

ln  LB\ 

0  .  0 

0.25 

0.5 

0.75 

1.0 

0.0 

11.61  dB 

11.66 

11.69 

11.73 

.  11.77 

0.4 

13.04 

13.09 

13.12 

13.17 

13.22 

0.5 

14.33 

14.39 

14.44 

14.49 

14.55 

0.75 

15.82 

15.91 

16.12 

1.0 

15.56 

15.65 

15.70 

15.81 

15.88 

t!B:  Highband 
LB:  Lowband 


mable  2.5  ""he  Signal -to-'luantization  lioise  Ratio  in  di3 
of  the  SBAPC  Astern  v;ith  Atal's  Moise  Shaninr 
at  8  KBPS. 
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Figure  2.4.4  SPECTRUM  PLOT  OF  THE  S8RPC  SYSTEM  WITH  TIME  DOMRIN 
SNR  =  i.  2 . 77  OB  WITH  RLPR=0.0  TO  BOTH  BRNO  IN  RTRL'S 
NOISE  SHPPINS  TECHNIQUE 


for  <x£  =  0.75,  ah  =  1.0.  For  a£  =  ah  =  1,  the  system  is  similar  to 
Makhoul's  model  shown  in  Figure  2.4.2  without  noise  shaping.  In  this 
case,  the  spectrum  of  the  output  noise  is  almost  uniform  as  shown  in  Ficure 
2.4.5  and  the  S/Q  is  high  (15.88  dB).  The  power  of  the  quantization 
noise  is  small,  but  the  reconstructed  speech  contains  much  wideband  noise 
For  =  ah  =  0.75,  the  power  of  the  quantization  noise  is  small,  and  in¬ 
formal  subjective  listening  tests  indicate  that  the  choice  of  =  ah  = 

0.75  leads  to  the  highest  quality  of  synthesized  speech.  It  is,  therefore, 
concluded  that  noise  shaping  actually  enhances  the  synthesized  speech 
quality  of  the  SBAPC  system. 

2.4.3  Comparison  of  Atal's  and  Makhoul's  Noise  Shaping  Methods 
The  shaping  of  quantization  noise  has  been  applied  to  the 
SBAPC  system  in  order  to  enhance  the  quality  of  synthesized  speech  at  low 
data  rates.  Makhoul's  technique  and  Atal's  technique  have  been  incorporated 
in  the  SBAPC  system  at  the  data  rate  8  Kbps  (quantization  of  error  signal 
only,  excluding  side  information)  in  order  to  determine  the  effects  of 
noise  shaping  clearly.  The  second  order  al  1  -zero  filter  proposed  by  Makhoul  has 
I een  applied  to  various  input  speech  signals.  The  performance  of  this 
scheme  is  tabulated  in  Table  2.4  in  terms  of  the  signal  to  noise  ratio 
with  male  input  speech.  Informal  listening  tests  suggest  that  noise 
shaping  in  the  high  band  does  not  enhance  the  subjective  speech  quality 
for  male  speakers.  Atal's  noise  shaping  technique  has  also  been 
applied  to  the  SBAPC  system.  The  system  performance  is  tabulated  in 
Table  2.5  with  the  parameter  a  which  controls  the  bandwidth  of  the  noise 
feedback  loop.  Informal  listening  tests  suggest  that  the  choice  of  a  = 

0.75  in  lowband  and  hi^hband  provides  the  best  subjective  speech  quality. 


Both  Atal's  technique  and  Makhoul's  technique  improve  the  subjective 
speech  quality  at  the  data  rates  below  12  Kbps.  The  technique  of  Makhoul 
attempts  to  change  the  flat  spectral  shape  of  the  noise  toward  the  spec¬ 
tral  shape  of  input  speech  while  the  technique  of  Atal  attempts  to  change 
the  spectrum  of  the  noise  (same  shape  as  input  speech)  toward  the  flat 
spectrum.  The  goal  of  both  techniques  is  the  same,  but  the  complexity 
and  stability  of  the  SBAPC  system  and  the  flexibility  of  the  noise  spec¬ 
tral  shapes  are  different.  For  the  purpose  of  comparison,  a  typical  per¬ 
formance  of  the  SBAPC  system  using  both  techniques  is  tabulated  in 
Table  2.6.  Though  the  signal  to  quantization  noise  ratios  are  approxi¬ 
mately  equal,  the  subjective  speech  quality  differs.  Informal  listening 
tests  suggest  that  Makhoul's  technique  provides  a  slightly  better  speech 
quality  as  compared  to  that  of  the  Atal  technique. 

The  speech  quality  of  the  SBAPC  system  is  quite  natural  at  the  data 
rate  16  KBPS.  However,  careful  informal  listening  tests  indicate  that 
"beeps"  are  sometimes  heard,  especially  at  the  low  data  rates.  In  gen¬ 
eral,  "beeps"  occur  more  often  in  female  speech  than  in  male  speech. 
Experiments  have  been  conducted  to  identify  the  source  of  the  "beeps," 
and  we  conclude  that  it  is  caused  by  the  coarse  quantization  of  error 
signal  in  the  highband,  since  the  "beeps"  disappear  when  the  signals  of 
the  highband  are  not  quantized.  This  is  no  easy  way  to  reduce  these 
"beeps."  The  only  alternative  is  to  mask  the  "beeps"  by  employing  noise 
shaping  at  the  high  band  and  by  inserting  a  small  level  random  noise  at 
the  synthesizer.  The  random  noise  is  added  only  when  the  number  of  bits 
allocated  to  the  high  band  is  small  (<1).  Unfortunately,  the  amplitude  of 
the  random  noise  has  to  be  adjusted  so  that  the  output  speech  will  not  be 


First  order 
pitch  prediction 


Third  order 
pitch  prediction 


|  Makhoul's  technique  |  17.87  dB 

18.04  dB 


TABLE  2.6:  COMPARISON  OF  SBAPC  SYSTEMS  WITH  TWO 
DIFFERENT  NOISE  SHAPING  TECHNIQUES 


Atals  technique 


18.94  dB 

18.70  dB 
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2.5  Quantization  of  Residual  Signals 
2.5.1  Adaptive  Bit  Allocations 

One  of  the  advantages  of  SBAPC  algorithms  is  the  possibility  of  using 
spectral  densities  of  the  subband  signals  and  applying  nonuniform  quanti¬ 
zation  to  each  band.  The  conventional  approach  is  to  use  a  fixed  bit 
allocation  rule  where  a  pre-determined  number  of  bits  is  assigned  to  the 
coding  of  each  band.  In  particular,  a  larger  portion  of  the 

available  bits  will  be  allocated  for  the  quantization  of  the  low  band  in 
order  to  capture  all  pitch  and  formant  information,  whereas  a  smaller  por¬ 
tion  of  the  bits  will  be  utilized  for  the  high  band.  However,  since  the 
ratio  of  low  band  and  high  band  energies  fluctuates  from  frame  to  frame, 
fixed  bit  allocation  may  not  necessarily  be  the  best  strategy.  Instead, 
an  adaptive  bit  allocation  scheme  that  dynamically  alters  the  bit  assign¬ 
ments  depending  on  the  energies  of  the  two  bands  seems  more  applicable. 

It  has  been  shown  that  the  most  dominant  source  of  speech  distortion 
in  the  SBAPC  system  is  the  quantization  of  residual  waveforms  in  the  pre¬ 
diction  loops.  To  illustrate  the  effects  of  quantization  errors,  the  S/Q 
of  the  SBAPC  system  are  plotted  in  Figure  2.5.1  with  or  without  applying 
quantization  to  low  band  and  high  band  error  signals.  In  this  figure,  the 
plot  of  (D)  indicates  that  the  quantization  is  not  applied  to  the  low 
band  error  signal,  and  the  error  signal  in  the  high  band  is  quantized  with 
2  bits  per  sample.  The  plot  of  (0>  indicates  that  the  quantization  is 
not  applied  to  the  high  band  error  signals  and  the  error  signals  of  low 
band  are  quantized  with  3  bits  per  sample.  In  this  figure,  the  SBAPC  sys¬ 
tem  performs  poorly  in  regions  II,  12,  and  13  as  compared  to  that  of  (❖). 
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HE  PERFORMANCE  CURVES  OF  SBAPC 
-TH  ORDER  PREDICT ORS  IN  EACH  SAN 
2  P 1 4  ( N  0  CODING  ON  LOW  B A N 0  > .  V2P 


thout  Quantization  of  Error  Signal 


T 


It  is,  therefore,  suggested  that  more  bits  may  be  allocated  for  the  high 
band  error  signals  in  regions  II,  12,  and  13  in  order  to  improve  the  per¬ 
formance  with  fixed  transmission  data  rate. 

The  performance  of  the  SBAPC  system  with  or  without  adaptive  bits 
allocations  is  then  compared  and  the  results  are  shown  in  Table  2.7.  The 
SBAPC  system  'works  better  when  the  bits  employed  to  quantize  the  low 
band  and  high  bands  are  adaptively  allocated  according  to  the  energy  of 
each  band.  The  adaptive  bit  allocations  yield  an  increase  of  1  dB  in 
signal -to-quantization  noise  ratio  over  the  scheme  with  fixed  bit  alloca¬ 
tions.  Since  the  energies  of  both  bands  have  to  be  sent  to  the  receiver, 
adaptive  bit  allocations  do  not  require  additional  overhead  bits.  However,  an 
additional  bit  assignment  rule  may  be  required  in  order  to  avoid  the  dif¬ 
ficulties  of  encoding  signals  with  non-integer  number  of  bits  per  sample. 

Let  R?.  be  the  actual  number  of  bits  allocated  to  the  i-th  subband, 
then  the  average  number  of  bits  per  band,  I,  may  be  expressed  as 

2 

R  =  H  l  R.  (2-74) 

i=l  1 

Let  cr?  be  the  energy  of  the  i-th  band,  then  it  can  be  shown  that  the  opti¬ 
mum  bit  allocation  can  be  obtained  (in  the  sense  of  minimizing  the  rms 
error  of  the  coded  speech)  as 

ai 

R,  =  R  +  %log2  ;  i  =  1,  2  (2-75) 

1  Via?  a?) 

Hence,  bits  to  encode  the  error  signal  of  each  band  can  be  adaptively 
allocated  according  to  the  energy  of  each  band. 
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The  SBAPC  performs  better  when  the  bits  used  to  quantize  the  low  band 
and  high  band  error  signals  are  adaptively  allocated  according  to  the 
energy  of  each  band  as  shown  in  Figure  2.5.2.  The  adaptive  bit  alloca¬ 
tions  offer  an  inverse  of  1-2  dB  in  S/Q  over  that  of  a  scheme  with  fixed 
bit  allocations.  Only  assignments  of  integer  bits  per  sample  are  utilized 
in  order  to  simplify  the  algorithm.  Since  the  energies  of  both  bands  have 
to  be  sent  to  the  receiver  for  quantization  purposes,  adaptive  bit  alloca¬ 
tions  do  not  require  additional  transmission  of  data. 


FIGURE  2.5.2  THE  PERFORMANCE  PLOTS  OF  16  KBPS  SBAPC  SYSTEMS  WITH 
FIXED  AND  ADAPTIVE  BIT  ALLOCATIONS 


2.5.2  Quantization  of  Residual  Signals 


In  APC  systems,  it  is  well  known  that  the  design  of  residual  signal 
quantizers  will  significantly  affect  the  voice  quality  of  the  processed 
speech.  The  SBAPC  algorithm,  which  is  very  similar  to  the  APC,  is  of  no 
exception  and  fine  quantization  on  both  high  and  low  band  residual  signals 
are  vital  to  its  success.  In  light  of  the  fact  that  the  adaptive  bit 
allocation  scheme  as  discussed  in  Section  2.5.1  only  results  in  integer  bit 
assignments,  the  emphasis  of  this  study  has  been  on  the  designs  of 
integer  bits  quantizers  (e.g.,  2-level,  4-level,  8-level).  More  specifi¬ 
cally,  the  quantizers  which  can  adapt  to  the  changing  variance  of  its  in¬ 
put  by  changing  its  step  sizes  has  been  investigated. 

In  general,  two  distinct  classes  of  these  quantizers  exist;  those 
that  change  their  step  size  based  on  the  transmitted  value  of  the  error 
signal  and  those  that  change  their  step  size  based  on  the  variance  of  the 
unquantized  error  signal.  The  first  form  is  known  as  "backward"  quantizers 
since  they  look  backward  over  previously  quantized  error  samples  to  adjust 
their  step  size.  The  second  form  is  labeled  as  "forward"  quantizers  be¬ 
cause  they  look  forward  over  the  unquantized  error  sample  to  obtain  their 
step  size  [l3j.  The  backward  quantizers  need  not  send  the  quantizer  step 
size  to  the  receiver  because  the  receiver  can  regenerate  this  value  by 
looking  at  the  transmitted  sequence  representing  the  quantized  error  wave¬ 
form.  This  is  not  true  of  the  forward  quantizers.  Here,  since  the  step 
size  is  based  on  the  value  of  the  unquantized  error  signal,  the  receiver 
cannot  regenerate  it  from  the  transmitted  sequence.  Thus,  forward  quan¬ 
tizers  transmit  the  value  of  the  quantizer  to  the  receiver.  Consequently, 
coders  having  forward  quantizers  require  more  bits  than  those  having  back¬ 
ward  quantizers.  For  the  SBAPC  system,  only  the  forward  quantizers  have 
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been  investigated.  One  of  the  reasons  is  that  during  the  course  of  the 
channel  error  study,  the  SBAPC  algorithm  has  been  found  to  be  extremely 
sensitive  to  errors.  Since  the  backward  quantizer  is  known  to  be  more 
susceptible  to  errors  as  compared  to  the  forward  one,  only  the  latter  is 
considered  [)] . 

In  the  SBAPC  algorithm,  the  error  waveform  obtained  after  the  pitch 
and  predictor  loops  still  has  some  sample-to-sample  correlations.  In 
particular,  the  error  signal  exhibits  a  large  concentration  of  energy 
around  the  pitch  pulses.  If  this  pitch  information  can  be  finely  quan¬ 
tized,  the  processed  speech  quality  will  be  improved.  One  such  example  is 
the  pitch-compensating  quantizer  [l4]  where  two  additional  quantizer  levels 
are  especially  designed  to  code  large  pitch  pulses.  Since  the  occurrence 
of  pitch  does  not  happen  that  often,  a  variable  coding  scheme  has  to  be 
utilized  to  reduce  the  total  bit  rate  and  this  complicates  the  entire 
coding  process. 

An  alternative  approach  is  to  use  a  segmental  quantization  scheme 
which  applies  different  quantization  to  various  regions  of  the  frame  [l5J. 
Partitioning  the  entire  frame  into  a  pre-determined  number  of  sub-inter¬ 
vals,  bit  allocations  can  be  computed  adaptively  according  to  the  ener¬ 
gies  of  these  sub-regions  in  the  same  manner  as  dictated  in  Eq.  (2-75). 

An  8-segment  quantizer  has  been  implemented  in  the  SBAPC  algorithm,  and 
the  results  indicate  that  the  segmental  quantizer  offers  an  advantage  of 
1  to  1.5  dB  over  that  of  the  conventional  quantizers.  However,  when 
bits  needed  to  transmit  the  energies  of  the  sub-levels  are  included  in  the 
algorithm  (that  is,  less  bits  are  utilized  to  quantize  the  residual  sig¬ 
nals),  the  improvement  becomes  minimal.  In  practice,  the  only  situation 
that  the  segmental  quantizer  can  offer  any  advantage  is  that  it  works 


pitch  synchronously.  In  other  words,  more  bits  are  utilized  to  quantize 
the  larger  pitch  spikes  especially  during  the  onset  of  a  pitch  period. 
Unfortunately,  there  is  no  straightforward  way  to  formulate  such  a  pitch 
synchronous  scheme  owing  to  the  fact  that  the  pitch  period  is  not  always 
divisible  by  the  number  of  sub-intervals.  Consequently,  the  speech  sam¬ 
ples  within  a  sub-interval  cannot  be  guaranteed  an  integer  making  the 
transmission  of  a  fixed  number  of  bits  per  frame  impossible. 

In  light  of  the  fact  that  segmental  quantizers  do  not  offer  any  real- 
advantage,  conventional  quantizers  based  on  the  statistics  of  the  input 
signals  are  considered.  The  performance  between  the  Gaussian  [16J  and 
the  Laplacian  [9]  quantizers  have  been  compared.  As  it  turns  out,  the 
Gaussian  quantizer  consistently  yields  lower  signal -to-quantization  noise 
as  compared  to  the  Laplacian  ones.  This  indicates  that  the  SBAPC  residual 
signals  have  a  distribution  which  closely  resembles  a  Laplacian  one. 

To  further  improve  the  SBAPC  performance,  quantizers  have  been  de¬ 
rived  from  the  actual  distributions  of  the  normalized  low  and  high  band 
error  signals.  Figures2.5.3  and  2.5.4  depict  one  half  of  distribution 
of  the  low  band,  high  band  residual  signal,  respectively.  From  these 
figures,  the  actual  distributions  resemble  the  Laplacian  more  than  the 
Gaussian  ones.  Also,  the  low  band  distribution  seems  to  have  a  larger 
spread  as  compared  to  the  high  band  one.  Based  on  these  distributions, 
the  1-bit,  2-bit,  and  3-bit  quantizers  for  the  two  bands  have  been  ob¬ 
tained.  When  incorporated  in  the  SBAPC  algorithm,  the  new  quantizers  gain 
0.25  dB  S/Q.  Also,  informal  listening  tests  indicate  the  new  quantizers 
yield  a  "smoother"  processed  speech  quality. 
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FIGURE  2.5.3:  DISTRI3UTI0N  OF  THE  LOW  BAND  RESIDUAL  SIGNAL 
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FTGURE  2.5.4:  DISTRIBUTION  OF  THE  HIGH  BAND  RESIDUAL  SIGNAL 
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Section  III 


PERFORMANCE  UNDER  CHANNEL  IMPAIRMENTS 

3.1  The  Effect  of  Background  Noise  on  the  SBAPC 

It  is  well  known  that  speech  processing  algorithms  may  produce  high 
quality  outputs  with  clean  input  speech  materials,  yet  in  many  practical 
situations  where  the  incoming  signals  are  contaminated  with  acoustically 
coupled  background  noise,  the  quality  of  the  speech  processed  through 
these  algorithms  can  vary  from  slightly  degraded  to  totally  unintelligi¬ 
ble  .  In  this  study,  the  effects  of  three  types  of  background  noises, 
namely,  the  office  noise,  the  helicopter  noise,  and  the  P3C  aircraft  noise 
on  the  SPABC  system  have  been  investigated. 


It  has  been  shown  in  Section  II  that  the  SBAPC  system  yields  high 
quality  outputs  at  16  Kb/s  with  uncorrupted  spoken  materials.  Moreover, 
our  result  also  indicates  that  the  algorithm  produces  intell  igible speech 
with  noise  coupled  inputs  even  in  high  noise  environments  (S/N  =  -  6  dB). 

In  the  first  part  of  this  study,  the  original  SBAPC  algorithm  is 
utilized  to  process  the  speech  material  supplied  by  DCA  which  contains 
standard  sentences  recorded  in  a  low-level  office  environment  (S/N  =  90  dB). 
Informal  listening  tests  show  that  the  quality  of  the  processed  sentences 
is  the  same  as  that  of  clean  inputs.  As  a  matter  of  fact,  quantization 
noise  of  the  SBAPC  tends  to  mask  out  the  background  office  noise  yield¬ 
ing  smooth  quality  speech.  This  indicates  that  the  SBAPC  scheme  can  in¬ 
deed  function  in  an  office  environment  and  can  be  employed  in  the  Execu¬ 
tive  Secure  Voice  Network  (ESVN).  The  second  part  of  the  study  deals 
with  the  utility  of  the  SBAPC  technique  in  a  tactical  surrounding  simu¬ 
lated  using  helicopter  noise  and  P3C  aircraft  noise.  In  both  situations. 
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the  SBAPC  yields  highly  intelligible  speech  even  when  the  signal -to-noise 
ratios  are  as  low  as  -6  dB.  The  periodic  helicopter  noise  or  the  broad 
band  P3C  aircraft  noise  does  not  seem  to  have  detrimental  effects  in 
the  pitch  extraction  or  the  computation  of  predictor  coefficients  which 
render  the  processed  speech  unintelligible.  However,  the  output  material 
becomes  extremely  annoying  to  listen  to  especially  for  the  high  noise 
cases.  So,  for  tactical  situations,  the  algorithm  has  to  be  modified  to 
include  noise  reduction  techniques.  Part  3  of  this  noise  study  deals 
with  the  design  of  a  pre-processing  scheme  which  is  capable  of  suppress¬ 
ing  the  level  of  the  background  noise  before  inputting  to  the  SBAPC  algo¬ 
rithm. 

3.1.1  Reduction  of  the  Background  Noise 

In  general,  there  are  two  types  of  methods  that  attempt  to  reduce 
the  noise  components  from  the  corrupted  speech  signals.  The  first  noise 
suppression  scheme,  generally  known  as  the  2-microphone  technique,  employs 
a  second  microphone,  which  is  far  away  from  the  speech  source  thus  pro¬ 
viding  information  about  background  noise  alone  [17].  It  is  then  sub¬ 
tracted  from  the  noisy  input  speech.  This  technique  is  effective  for 
extremely  high-noise  environments  (below  0  dB  signal -to-noise  ratio)  and 
for  non-stationary  noise  backgrounds  (viz,  means  and  correlation  func¬ 
tions  change  rapidly  in  time).  However,  this  scheme  requires  large 
amounts  of  computations  (for  example,  the  order  of  the  noise  cancelling 
filter  is  often  greater  than  a  thousand)  which  may  be  beyond  the  limits 
of  real-time  implementation.  The  second  noise  suppression  technique 
[18] -  [19],  which  uses  a  single  microphone,  estimates  the  frequency 
spectrum  of  the  noise  during  non-speech  activity.  Then  the  noise  spec- 
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trum  is  subtracted  from  that  of  the  noisy  speech.  There  are  two  approaches 
to  suppress  the  background  noise  using  the  l-m.V-~. phone  technique.  The 
first  one,  proposed  by  Boll,  attenuates  the  residual  signal  by  -30  dB 
after  subtraction  of  the  estimated  frequency  components  of  the  noise.  The 
second  procedure  suggested  by  McAuley,  reduces  the  residual  signals  de¬ 
pending  on  the  frequency  domain  signal -to-noise  ratio.  Though  the  objec¬ 
tive  of  both  methods  is  to  remove  the  stationary  noise,  the  latter  tech¬ 
nique  offers  more  versatility  since  the  amount  of  noise  reduced  is  con¬ 
trolled  adaptively  by  a  signal -to-noise  ratio  computed  on  a  frame  basis. 

In  the  next  section,  this  technique  and  results  of  noise  suppression  by 
McAuley  will  be  discussed. 

3.1.2  McAuley' s  Noise  Suppression  Technique 

Assuming  that  the  noise  n(t)  has  been  added  to  the  speech  signal  s(t), 
the  computed  input  may  be  expressed  as 

x(k)  =  s(k)  +  n(k) ,  k=0,  1,  ....  M-l  (3-1) 

where  M  is  the  number  of  speech  samples  in  a  frame  period.  Taking  the 
DFT  of  eq.  (3-1)  yields 

X(m)  =  S(m)  +  N(m) ,  m=0,  1,  ....  M-l  (3-2) 

where  X(m),  S(m),  and  N(m)  are  the  DFT's  of  x(k),  s(k),  and  n(k),  respec¬ 
tively.  Assuming  that  the  noise  and  speech  signal  are  uncorrelated  and 
they  are  sample  functions  of  zero-mean  Gaussian  processes,  then  the  vari¬ 
ance  of  the  X(m)  may  be  expressed  as 
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ojj(m)  =  a|(m)  +  a2(m) 

where  a^(m)  and  a^(m)  represent  the  variances  of  S(m)  and  N(m),  respectively. 
Since  X(m)  is  a  complex  Gaussian  process  with  variance  aj|(m),  its  real  and 
imaginary  parts  are  Gaussian  with  variances  o^(m)/2.  Therefore,  the  proba¬ 
bility  density  function  of  X(m)  may  be  expressed  by  the  joint  probability 
function: 


P  ( X )  = 


"1°!  +  °N> 


exp 


'  |x[2  “ 

’  - 


(3-4) 


where  the  index  m  is  omitted  for  simpler  notation.  The  maximum  likelihood 
estimate  of  a2  is  obtained  by  differentiating  p(X)  with  respect  to  and 
setting  the  result  to  zero  which  yields 


a'  -  |X|2  -  a2 


N 


(3-5) 


In  order  to  reduce  the  distortion  due  to  the  phase,  the  input  phase  have 
to  be  retained,  and  the  estimated  spectral  component  of  the  signal  may  be 
expressed  as 


S(m)  =  a-(m)  X^-^- 

S  !  X(m)  | 


X(m) | 2  -  c/Um) 


I X(m) | : 


X(m) 


(3-6) 


This  is  generally  known  as  the  method  of  spectral  subtraction.  Modifica¬ 
tions  of  this  algorithm  have  been  studied  extensively  by  several  authors 
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[18]  -  [19].  The  result  of  eq.  (3-6)  has  been  derived  under  the  assumption 
that  the  speech  and  noise  are  independent  Gaussian  random  processes. 

The  second  approach  is  to  assume  that  the  speech  can  be  characterized 
by  a  deterministic  waveform  with  unknown  amplitude  and  phase.  In  other 
words,  only  X(m)  and  N(m)  as  given  in  eq.  (3-2)  are  random  variables.  Then 
the  mean  value  of  X(m)  is  given  by 


X(m)  =  S(m)  =  A  exp(j0) 


(3-7) 


where  A, e  is  the  amplitude,  phase  of  the  speech  signal.  Since  N(m)  is 
assumed  to  be  zero-mean  Gaussian,  the  probability  density  function  of 
X(m)  is  written  as 


p(x)A,e)  = 


a,. 


exp 


| X | 2  -  2ARe{X  exp(-je)}  +  AJ 


(3-8) 


Assuming  the  phase  0  is  uniformly  distributed  over  Q) , 2tTJ  ,  then  the  proba¬ 
bility  density  function  of  X  given  A  may  be  expressed  as 


P  ( X  |  A )  = 


p(0)  d(0) 


exp 


to: 


|X| 2  +  A2 


1  2lT 

- - f  exp 

2tt  / 


2ARe{Xe"j0) 


exp 


to: 


1X| 2  +  A2 


Io  (|2AX/a2|)  {3-9) 
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where  I0(.)  is  the  zeroth  order  modified  Bessel  function  of  the  first  kind 
which  is  defined  as 


Mlx!)  -  exp[Re(X  e‘j0)]  d0 

n  ~  ““ 


(3-10) 


For  large  values  of  |X|  ^3»  I o ( j  X | )  may  be  approximated  by 


I  o  ( 1  X  | )  = 


'  2  TT  X 


exp|Xj 


(3-11) 


In  this  case,  the  probability  density  function  can  be  approximated  as 


p(X|A)  =  — 


TO, 


N 


/  1a|x|' 

"V  21:  - 


exp 


|X|2  -  2A ( X (  +  A2 


(3-12) 


The  maximum  likelihood  estimate  of  the  spectral  amplitude  may  be  obtained 
by  differentiating  eq.  (3-12)  with  respect  to  A  and  by  setting  the  result 
to  zero  which  yields 


The  maximum  likelihood  estimate  of  the  spectral  component  without  changing 
the  phase  may  be  expressed  as 

A  A  X(m) 

S(m)  =  A  - 

|X(m) | 


(3-14) 
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In  this  case,  the  maximum  likelihood  estimate  is  the  average  of  the  re¬ 
ceived  spectrum  and  the  estimate  spectrum  obtained  from  the  method  of  spectral 
subtraction.  The  relations  between  the  received  spectral  amplitude  A  and 
the  estimated  amplitude  |X|  given  in  eq.  (3-13)  are  shown  in  Figure  3.1.1 
for  the  cases  of  random  input  signal  and  deterministic  input  signal  with 
unknown  amplitude  and  phase.  One  advantage  of  the  maximum  likelihood  algo¬ 
rithm  is  that  the  speech  components  at  frequencies  where  the  amplitude  is 
small,  is  still  preserved.  In  contrast,  these  components  are  removed 
completely  in  spectral  subtraction  technique  which  may  degrade  the  quality 
of  the  speech  or  may  decrease  the  intelligibility  of  speech. 

However,  the  maximum  likelihood  algorithm  does  not  adequately  suppress 
the  background  noise  in  the  absence  of  speech  since  the  suppression  rules 
are  derived  under  the  assumption  that  the  speech  signals  are  always 
present  in  the  measured  data.  So  a  noise  detector  has  to  be  developed  in 
order  to  derive  a  better  suppression  rule  that  can  be  applied  to  reduce 
the  noise  component  in  the  absence  of  speech  signals.  Instead  of  a  fixed 
attenuation  factor  (-30  dB)  in  Boll's  technique,  an  adaptive  attenuation 
factor  may  be  derived  in  this  method.  Modeling  the  speech  activity  as 
a  hypothesis  testing  case,  it  can  be  represented  as: 

THo  :  speech  absent:  |X(m)|  =  |N(m)| 

^Hi  :  speech  present:  |X(m)|  =  |A  e'’6  +  N(m)|  (3-15) 

Only  the  measured  envelope  is  used  in  this  measurement  model  since  the 
measured  phase  provides  no  useful  information  in  the  suppression  of  noise. 
The  spectral  envelope  estimate.  A,  derived  from  the  minimization  of  the 
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A  . 

mean-squared  error  E[(A  -  A)2]  is  given  as  E[AJ|X|  ].  This  conditional  mean 
can  be  expressed  as 


A  =  e[a||x|  ] 

=  E[a(|X|,H1]P[H1||X1]  +  E[A||X|  ,  H3p[H0|  |X|  1  (3-16) 

where  P[Hk||X|]  is  the  probability  that  the  speech  is  classified  as  in 
state  H^.  The  last  term  of  eq.  (3-16)  becomes  zero  due  to  the  fact  that 
the  average  value  of  A  when  the  speech  is  not  present  should  be  equal  to 
zero.  Then  the  estimate  of  the  envelope  A  is  given  by 

A  =  EQA^|X|  ,  Hj]  P(H1\1X|)  (3-17) 


When  speech  is  present,  the  expectrum  spectrum  E  [a||x|,hJ  represents 
the  minimum  variance  estimate  of  A  and  it  can  be  substituted  with  the  maxi¬ 
mum  likelihood  estimate  given  in  eq.  (3-13)  which  results: 


— 

— 

— 

|X| 

+ 

"1 

p 

H,f 

|X| 

where  P C H 1 1 1 x 1]  may  be  expressed  as: 


(3-18) 


P[Hi||X|] 


P[1x1[Hi]  P[Hx] _ 

P[|X||h,]  p[Hj]  +  P[jxf  Ho]  P[Ho] 


(3-19) 


Under  hypothesis  H0,  the  received  signal  envelope  consists  of  noise  term 
only.  Since  the  noise  is  a  complex  Gaussian  process  with  a  zero  mean  and 
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a  variance  a*,  the  envelope  will  have  the  Rayleigh  probability  density 
function  and  can  be  written  as 


P(|X|  Ho)  = 


exp  - 


(3-20) 


Under  hypothesis  Hu  the  probability  density  function  of  the  received 
envelope  will  have  the  Rician  density  function  and  may  be  expressed  as 


P( I X l J  H  i )  = 


exp  - 


Ixl2  +  A2 


(3-21) 


Assuming  that  a  priori  probabilities  of  the  hypothesis  P[H0]  ,  P[Hi]  are 
equal  and  defining  the  a  priori  signal-to-noise  ratio  to  be 


K  =  — 


Equation  (3-19)  «an  be  rewritten  as 


(3-22) 


p(Hi||X|)  = 


exp  (-£)  I0  (|x|V^)] 

1  +  exp  (-0  Io[2jT(T  X|2/o2)  ] 


(3-23) 


It  is  this  a-posteriori-probability  that  contributes  the  "soft-decision" 
aspect  to  the  maximum  likelihood  envelope  estimator  as  compared  to  the  "hard 
decision"  of  eq.  (3-13)  for  which  the  speech  plus  noise  is  either  passed  or 
is  blocked  depending  on  the  decision  of  the  hypothesis.  Defining  a 
posteriori  signal-to-noise  ratio  (i.e.,  measured  signal-to-noise  ratio  SNR) 


SNR  =  |X|2/o2 


(3-24) 
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and  appending  the  measured  input  phase,  the  estimated  spectral  component 
may  be  expressed  as 


/\  \  X(m) 

S(m)  =  A(m)| - 

1  |  X{m) | 


i  r  i  ix^m)iz  ■  °n1  r  i 

1  !  +  H -  N  •  X(m)  •  p  Hi  | X(m) 

L  I  X(m)  |  J  L  1 


t  1  + 


exp  (-0  I0(2  I  £  •  SNR) 

_ /M  _ 

1  +  exp  (-£)  I0 (2ic  '  SNR) 


(3-25) 


The  channel  gains,  given  as  the  multiplication  of  the  a-posteriori  proba¬ 
bility  for  the  speech  state  P(Htj|X|]  by  the  maximum  likelihood  envelope 
estimate  of  eq.  (3-13),  are  plotted  in  Figure  3.1.2  as  a  function  of  a- 
posteriori  signal-to-noise  ratio  (SNR)  for  various  values  of  a  priori  sig¬ 
nal  -to-no ise  ratio  £;.  The  two-state  soft-decision  maximum  likelihood  algo¬ 
rithm  applies  more  suppression  when  the  measured  SNR  is  low  and  this  case 
"most  likely"  corresponds  to  the  noise  state.  On  the  other  hand,  little 
attenuation  is  applied  when  the  SNR  is  large.  This  is  a  desirable  property 
of  the  noise  suppression  device,  since  the  state  of  large  SNR  "most  likely" 
means  that  speech  is  present,  in  which  little  attenuation  is  desired.  As 
5  increases,  the  channel  gain  curves  become  sharper  which  indicate  that 
the  speech  state  (H0  or  Hi)  can  be  distinguished  easier  for  large  £.  In 
the  limit,  the  output  may  be  totally  suppressed  or  passed  depending  on 
the  value  of  a  measured  a  posteriori  signal-to-noise  ratio.  This  partic¬ 
ular  case  leads  to  the  similar  performance  of  Boll’s  noise  suppression 
algorithm  whose  attenuation  factor  depends  solely  on  the  decision  of 
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Channel 


speech  state.  With  the  selection  of  £,  the  McAuley  technique  provides  the 
versatility  of  noise  suppression  in  an  adaptive  fashion.  It  is,  therefore, 
convenient  to  refer  £  as  the  "suppression  factor"  which  is  chosen  according 
to  the  background  noise  level.  Once  £  is  chosen,  the  a  posteriori  signal  - 
to-noise  ratio  must  be  measured  in  order  to  calculate  the  channel  gain 
as  shown  in  eq.  (3-25). 

The  block  diagram  of  the  noise  suppression  technique  is  shown  in 
Figure  3.1.3.  In  this  scheme,  the  energy  of  the  input  signal  is  computed 
and  fed  to  the  noise  detector  which  decides  the  speech  activity,  i.e., 
speech  present  or  speech  not  present  (noise)  using  the  detection  algorithm 
as  discussed  in  Appendix  B.  Concurrently,  the  spectra  of  the  input  signal 
X ( k )  are  calculated  via  the  FFT  (fast  Fourier  transform)  technique.  The 
resulting  spectral  components  are  directed  to  the  spectral  mean  adjustment 
device  when  the  speech  is  not  present.  The  multiplication  gain  factors 
are  calculated  for  each  spectral  component  from  the  input  spectra  and 
the  average  noise  spectra.  These  gain  factors  are  then  multiplied 
with  the  input  spectra,  and  the  estimated  signal  is  obtained  via  inverse 
FFT. 

Mathematically,  let  the  average  noise  power  at  the  mth  frame  and  nth 
channel  be: 

Mm)  =  An(m-1)  +  a  jjX(m) J*  -  An(m-lj]  (3-26) 

where  A(m)  =  o^(m)  is  used  for  notational  convenience  and  |X(m)|*  repre¬ 
sents  the  measured  noise  power  spectrum  at  the  nth  channel  of  the  mth  frame. 
Then,  the  average  noise  power  is  updated  after  each  frame  using  the  time 
constant  about  1  sec.,  i.e.. 


3-13 


w 

1^^  AD-AQ92  010 

UNCLASSlFlE 

aTE  PRODUCTS  CORP  NEEDHAM  HEIGHTS  MA  COMMUNICATION  S— ETC  F/6 
SPEECH  ALGORITHM  OPTIMIZATION  AT  16  KBPS.(U) 

SEP  80  R  S  CHEUNG*  S  Y  KWOn*  A  J  GOLDBERG  DCA1OO-79-C-OO30 

0  NL 

>/u 

Hi 

■ 

2  «=  3 

A09?ei0 

■ 

II 

-j 

_ 

-| 

I 

| 

j 

1 

■ _ 

DIAGRAM  OF  McAULEY'S  NOISE  SUPPRESSION  ALGORITHM 


a  =  exp  J -22.5/Tj 


(3-27) 


where  22.5  represents  a  frame  period  in  msec  and  T  is  the  time  constant 
in  m  sec.  One  of  the  disadvantages  of  this  scheme  is  the  relatively  long 
adaptation  time  required  to  determine  the  detection  threshold  and  then 
additional  training  period  may  be  required  to  learn  the  channel  noise 
statistics.  Let  the  gain  factor  of  the  spectral  subtraction  be 


g„(»)  » 


I  x(ro) I p  -  Xn(m-1) 


(3-28) 


Then  the  channel  gain  can  be  expressed  from  eq.  (3-25)  as 


Mm)  = 


|Sn(m)| 

|X(m)|r 


■  \  0  +-/gn(n»)) 


exp  {-£)  I0 


kf~T~  ) 

V  Vl  -  gn(m)/ 


(3-29) 


1  * '•(2vV-St) 


The  advantage  of  using  gn(m)  as  an  independent  variable  is  that  the  value 
of  9n(m)  is  less  than  one,  which  facilitates  the  computation  of  the  channel 
gain  using  a  simple  table  look-up  program.  Fifteen  tables  corresponding 
to  values  £  =  1,  2,  ...,  15  have  been  tabulated  in  the  noise  suppression 
algorithm,  with  each  table  consisting  of  50  values  of  suppression  rule 
computed  for  equal  increment  of  gn(m)  from  0  to  1. 

The  McAuley algorithm  has  been  applied  to  the  processing  of  speech  sig¬ 
nals  added  with  various  types  of  background  noise  with  the  16  Kb/s  SBAPC 
system.  The  output  of  the  noise  suppression  device  or  the  synthesizer 
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speech  is  noted  to  have  amplitude  fadings  when  large  £  is  used  in  the  high 
noise  environment  (S/N  <  0  dB).  This  is  a  very  jectionable  degradation 
of  speech.  In  order  to  maintain  a  constant  amplitude  output  even  for 


large  £,  a  simple  automatic  gain  control  (A6C)  routine  has  to  be 
incorporated  with  the  noise  suppression  algorithm.  If  G^(m)  denotes  the 
average  channel  gain  at  the  mth  frame,  i.e., 


G.(m)  =  i  Z  G  (m) 
n  n=0  n 


(3-30) 


where  M  is  the  channel  number  in  frequency  domain.  This  average  gain 
factor  may  indicate  approximately  the  amounts  of  the  spectral  suppression. 

A  small  number  of  GA(m)  may  correspond  to  a  large  amount  of  power  attenua¬ 
tion.  In  this  case,  the  output  may  need  a  large  amplification  to  avoid 
the  fading  of  amplitudes.  Furthermore,  to  maintain  a  constant  gain  through¬ 
out  all  the  frames,  a  smoothing  algorithm  is  utilized  and  the  overall  gain 
becomes : 


G(m) 


1 

128 


129 

Z 

1=0 


GA(m-*) 


GA(m-£) 


(3-31) 


In  our  simulations,  the  effects  of  amplitude  fading  have  been  reduced 
even  in  the  high  noise  case  (S/N  =  -6  dB)  where  the  gain  factor  G(m)  is 
utilized  to  adjust  the  output  of  the  noise  suppression  device.  The  noise 
suppression  algorithm  developed  in  this  project  can  be  used  as  a  pre¬ 
processor  to  any  speech  signal  processing  algorithm,  and  the  overall  system 
can  be  further  optimized  with  respect  to  the  noise  suppression/speech  dis¬ 
tortion  tradeoff  analysis  by  choosing  an  appropriate  suppression  factor  £. 


3.2  The  Effect  of  Random  Channel  Errors  on  the  SBAPC 

The  SBAPC  system,  as  discussed  in  Section  II,  produces  a  high  quality 
synthesized  speech  at  the  data  rate  of  16  Kbps.  However,  error-free  trans¬ 
missions  are  not  always  possible  in  many  practical  systems,  since  the 
transmitted  signals  may  be  corrupted  by  noises  in  the  channel  which  may 
or  may  not  vary  with  time.  Under  these  circumstances,  the  performance  of 
the  SBAPC  changes  greatly  with  the  rates  and  also  with  the  positions  of  the 
channel  errors  within  the  frame. 

In  this  study,  the  effect  of  random  channel  errors  at  rates  ranging 
from  0  -  10*2  is  investigated.  The  configuration  of  the  SBAPC  system 
tested  (=15  Kbps)  is  shown  in  Figure  3.2.1  which  includes  the  32-tap  QMF, 

1st  order  pitch  loop  on  the  low  band,  4th  order  APC  on  both  bands,  noise 
shaping  on  both  bands,  and  adaptive  allocation  of  288  bits  on  quantizing 
the  subband  signals.  The  signal-to-noise  ratio  plot  versus  bit  error 
rates  (BER)  is  shown  in  Figure  3.2.2.  The  result  indicates  that  the  SBAPC 
system  is  extremely  sensitive  to  channel  errors.  At  10'4  BER,  the  algo¬ 
rithm's  performance  is  virtually  unchanged  as  compared  to  the  no  error 
case.  However,  the  degradation  becomes  noticeable  at  5  x  10*4  BER,  and 
the  signal-to-noise  ratio  drops  by  5  dB  at  10'3.  At  10“2  BER,  the  system 
is  useless  since  the  output 

speech  becomes  unintelligible.  As  expected,  errors  occurred  on  the  side 
information  bits  which  include  pitch,  PARCOR  coefficients,  energy,  etc., 
have  a  more  detrimental  effect  as  compared  to  those  occurred  on  the  quan¬ 
tized  residual  signal  bit  stream.  This  suggests  that  in  order  to  make 
the  SBAPC  system  useful  in  a  noisy  channel,  protections  of  the  trans¬ 
mitted  bits  are  vital,  particularly  for  the  side  information  bits.  The 
following  section  describes  the  utility  of  forward  error  correcting  codes 
in  reducing  the  effect  of  channel  errors. 
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:E  3.2.1  THE  16  KBPS  SPLIT-BAND  APC  SYSTEM 


FIGURE  3.2.2:  THE  EFFECT  OF  CHANNEL  ERROR  RATES  ON  3  SBAPC  SYSTEMS 


3.2.1  Application  of  BCH  Codes 

The  method  of  correcting  errors  may  be  chosen  depending  on  the  appli¬ 
cation  circumstances,  i.e.,  data  rate,  channel  error  rate,  complexity  and 
cost,  etc.  Since  the  SBAPC  coder  is  designed  for  real-time  implementa¬ 
tions,  it  is  desirable  to  have  error  correcting  codes  that  require  the 
least  amount  of  time  delay  in  correcting  channel  errors.  Block  codes  of 
short  length  may  be  well  suited  to  the  real-time  implementation  of  the 
SBAPC  algorithm  since  no  additional  time  delay  is  required  to  process  the 
error  correcting  procedure  if  the  length  of  the  block  code  is  less  than 
the  number  of  bits  received  in  a  frame  period.  There  are  many  types  of 
block  codes  that  can  be  utilized  for  different  channel  characteristics. 

Practical  communication  channels  corrupt  signals  in  many  ways,  such 
as  the  additive  Gaussian  noise  and/or  impulsive  noise  that  produce  random 
and  burst  errors,  respectively.  In  other  situations,  the  characteristics 
of  the  channel  may  vary  in  time  (fading  HF  channels)  or  may  be  random 
since  it  represents  a  sample  function  of  an  ensemble  of  channels  with 
widely  different  characteristics  (switched  telephone  network).  Hence, 
it  is  non-trivial  to  construct  a  coding  scheme  that  adapts  to  various 
types  of  channels.  Since  additive  Gaussian  noise  is  the  main  source  of 
noise  in  many  practical  communication  channels,  only  forward  error  cor¬ 
recting  codes  that  are  capable  of  correcting  random  errors  are  con¬ 
sidered. 

The  Base-Chaudhuri-Hocquenhem  (BCH)  code,  which  is  a  remarkable  gen¬ 
eralization  of  Hamming  codes,  has  been  known  to  be  the  most  powerful 
multiple  random-error  correcting  code.  Also,  the  decoding  algorithm 
can  be  implemented  with  a  reasonable  amount  of  complexity 
A  more  fundamental  description  of  the  BCH  codes  and  their  encoding,  de¬ 
coding  algorithms  are  given  in  Appendix  C.  This  appendix  has  shown  that 
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with  the  block  length  of  n  =  2m  -  1  and  mt  parity  bits  it  is  possible 
to  correct  any  t  or  less  errors  using  a  (n,  k)  BCH  code  where  k  is  the 
number  of  information  bits.  The  proper  choice  of  m,  n,  t  for 
BCH  codes  may  depend  on  the  channel  error  rate,  data  rate,  and  the  system's 
specifications.  The  information  rate  of  the  (n,  k)  BCH  code  is  given  as: 

R  =  k/n  (3-32) 


The  performance  of  random-error  correcting  BCH  codes  may  be  expressed 
in  terms  of  error-probability.  Let  P(m,  n)  be  the  probability  of  m 
errors  occurring  in  an  n-bit  block  and  Bm  be  the  probability  of  decoding 
an  error  pattern  of  weight  m  correctly,  then  the  probability  of  decoding 
received  code  word  erroneously  may  be  expressed  as 


pe  ■ 1  -  J.  %  p<m-  n> 

„  m-o 

(3-33) 

’  in  °*  P(l"’ 

m-CJ 


where  am  =  1  *  fL  denotes  the  probability  of  erroneously  decoding  an  error 
pattern  of  weight  m.  The  parameter  ci^  is  a  function  of  the  code  and  de¬ 
coding  algorithm.  If  a  t  error-correcting  BCH  code  is  employed  and  it  is 
decoded  using  the  Peterson  decoding  algorithm  shown  in  Appendix  D,  the 
parameter  am  may  be  expressed  as 


ct_  =  0  0<m<t 

m  —  — 

=  1  t  <  m  <  n 


(3-34) 
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and  the  probability  of  erroneously  decoding  the  code  word  may  be  reduced, 
from  eq.  (3-33)  as 

n 

P  =  z  p(m,  n)  (3-35) 

m=t+l 

If  the  bit  errors  occur  independently  at  random  with  probability  e,  then 
the  probability  p(m,  n)  can  be  expressed  as 

p(m,  n)  =  E  em(l-e)n_m  (3-36) 

m 

where  the  probability  p(m,  n)  is  simply  the  binomial  distribution  and  Pg 
in  eq.  (3-35)  is  equal  to  the  tail  of  the  distribution. 

3.2.2  Error  Protection  via  the  (127,106)  BCH  code 

This  technique  employs  one  block  of  three-error  correcting  (127,106) 

BCH  code  which  protects  106  information  bits  with  21  parity  ones.  For 
the  16  Kb/s  SBAPC  system,  all  50  side  information  bits,  together  with  56 
sign  bits  of  the  residual  signals  are  encoded.  A  sync  bit  and  232  error  signal 
bits  are  left  unprotected.  Though  this  coding  scheme  is  efficient  (i.e., 
only  5.8%  of  the  total  bits  are  used  for  error  protection),  its  success 
hinges  largely  on  the  assumption  that  the  SBAPC  system  is  tolerant  to 
random  errors  occurred  on  the  residual  signal  bit  stream.  The  S/Q  plot 
versus  BER  for  the  SBAPC  system  with  the  (127,106)  BCH  Code  is  depicted 
by  the  graph  (+)  in  Figure  3.2.2.  As  illustrated  in  the  figure,  the  pro¬ 
tected  SBAPC  system  consistently  out-performs  the  original  unmodified  one 
in  high  error  cases.  For  the  system  with  the  (127,106)  BCH  code,  the  S/Q 
remains  relatively  unchanged  for  BER  from  0  -  10"3.  Unfortunately,  its 
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performance  starts  to  degrade  at  2  x  10' 3  BER,  and  poor  quality,  though 
intelligible,  speech  is  obtained  at  10"2  BER.  This  result  reveals  two  im¬ 
portant  findings:  1)  protection  of  only  side  information  is  not  even  adequate 
in  maintaining  the  SBAPC  performance  in  relatively  low-error  environments; 

2)  the  utilization  of  long  block  BCH  codes  is  not  the  best  strategy  for 
high-error  situations  (e.g.,  BER  =  10"2).  The  first  finding  can  be  attri¬ 
buted  to  the  presence  of  the  pitch  loop  in  the  SBAPC  algorithm  which 
propagates  the  residual  signal  errors  to  successive  frames.  One  solution 
to  the  above  situation  is  to  apply  error  protection  to  residual  signal  bits 
as  well  as  to  side  information  bits  at  the  expense  of  hiaher  transmi ssion  rates 
The  second  finding  results  from  the  fact  that  the  occurrence  of  channel 
errors  is  more  likely  in  a  longer  data  block.  If  this  error  count  exceeds 
the  correcting  capability  of  the  BCH  code  (t  =  3  for  the  (127,106)  BCH 
code),  the  code  renders  no  utility.  To  illustrate  this,  the  probability 
of  more  than  3  error  occurrence  in  the  block  of  127  bits  at  10'2  channel 
error  rate  is  computed  using  eq.  (3-36)  as  follows: 

127 

P  =  Z  p(m,  127) 
e  m=4 

=  1  -  p(0,127 )  -  p(l ,127)  -  p( 2 , 127 )  -  p(3,127)  (3-37) 

«  0.0393 

On  the  average,  there  will  be  4  blocks  out  of  every  100  that  will  have  more 
than  3  errors,  and  they  will  not  be  corrected.  Furthermore,  the  presence 
of  the  pitch  loop  in  the  SBAPC  algorithm  compounds  the  effects  by  propa¬ 
gating  the  errors  through  several  frames.  One  solution  to  overcome  the 
above  deficiency  is  the  utilization  of  several  blocks  of  short  BCH  codes 
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e.g.,  (63,45).  To  illustrate  this,  the  probability  of  more  than  3-error 
occurrence  in  the  block  of  63  bits  at  10"2  channel  error  rate  is  computed 
using  eq.  (3-36)  as  follows: 

63 

P  =  I  P(m,  63) 
e  m=4 

=  1  -  p( 0, 63 )  -  p(l,63)  -  p(2,63)  -  p(3,63)  (3-38) 

=  0.003725 

This  indicates  that  on  the  average,  4  blocks  out  of  every  1000  will 
have  more  than  3  errors,  making  this  code  an  order  of  magnitude  more 
resistant  to  channel  errors  than  the  (127,106)  BCH  code. 

3.2.3  Error  Protection  via  Five  Blocks  of  (63,45)  BCH  Codes 

As  discussed  in  Section  3.2.2,  the  incorporation  of  1  block  of 
(127,106)  BCH  code  to  protect  the  50  side  information  bits  and  50  residual 
signal  bits  does  extend  the  utility  of  the  SBAPC  system  from  10~3  to 
5  x  10" 3  channel  error  rate.  However,  at  10" 2 ,  its  performance  is  still 
considered  unacceptable.  One  alternative  is  to  use  shorter  length  BCH  codes 
to  maintain  their  error  correcting  capability  in  high  error  environments. 
Also,  the  employment  of  multiple  blocks  of  these  short  BCH  codes  to  protect 
more  residual  signal  bits  will  further  enhance  the  SBAPC  system’s  robust¬ 
ness  to  channel  errors.  The  following  describes  a  forward  error-correct¬ 
ing  procedure  that  employs  5blocks  of  (63,45)  BCH  codes,  and  it  extends 
the  utility  of  the  SBAPC  algorithm  to  10"2  BER. 

Since  5  blocks  of  (63,45)  BCH  codes  require  90  parity  bits,  the  SBAPC 
algorithm  has  to  be  modified  slightly  in  order  to  maintain  a  transmission 
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rate  of  16  Kbps  (360  bits  per  frame  at  44.44  frames/sec.).  In  this  new 
configuration,  50  bits/frame  are  for  side  information  quantization,  216 
bits/frame  are  for  encoding  residual  signals,  90  bits  are  needed  for  parity 
checks,  and  the  remaining  4  bits  are  for  synchronization  purposes.  As  for 
the  error  protection,  go  parity  bits  are  used  to  defend  50  side  information 
bits  and  175  residual  signal  bits.  The  signal-to-quantization  noise  plot 
versus  bit  error  rates  is  shown  in  Figure  3.2.2.  Compared  to  the  SBAPC 
system  with  no  protection  or  that  with  1  block  of  (127,106)  code,  the 
multiple-block  encoding  scheme  yields  slightly  inferior  S/Q  for  low  channel 
error  rates  (BER  <  5  x  10-3).  This  result  is  not  surprising  since  a  higher 
percentage  (25%)  of  the  available  bits  are  spent  on  parity  checking  rather 
than  on  quantizing  the  residual  signals.  Consequently,  the  subband 
error  signals  are  represented  less  precisely  yielding  lower  S/Q.  However, 
informal  listening  tests  reveal  no  or  little  audible  differences  between 
the  processed  sentences  obtained  through  the  SBAPC  system  with  5  blocks 
of  (63,45)  BCH  codes  and  the  SBPAC  with  1  block  of  (127,106)  code  in  the 
error-free  case.  This  may  be  explained  by  the  fact  that  the  S/Q  for  the 
SBAPC  with  multiple-block  error  coding  is  already  high  (~  19.6  dB).  An 
additional  2.5  dB  increase  obtained  from  the  SBAPC  with  1  block  error 
coding  is  not  sufficient  to  perceptually  improve  voice  quality. 

For  channels  with  high  error  rates,  the  multiple  block  coding  scheme  out¬ 
performs  the  one  block  system  by  as  much  as  7  dB,  and  it  yields  high  quality 
speech  even  at  10"2  BER.  So,  employing  the  5-block  (63,45)  BCH  cod.ng 
scheme,  the  performance  of  the  16  Kb/s  SBAPC  system  can  be  made  robust  to 
channel  error  rates  as  high  as  10"2. 


3.3  Tandem  Performance  with  2.4  Kb/s  LPC-10 

In  daily  communications,  users  of  the  16  Kb/s  wideband  terminals  may 
have  to  converse  with  those  of  the  2.4  Kb/s  narrowband  ones.  Though  these 
terminals  may  individually  produce  satisfactory  outputs,  the  overall  speech 
quality  when  they  are  in  connection  or  in  tandem  is  sometimes  degraded. 

This  type  of  distortion  is  exemplified  by  the  "buzzy"  speech  quality 
obtained  when  the  16  Kb/s  Tenley  terminal,  which  employs  the  Continuously 
Variable  Slope  Deltamodulator  (CVSD),  is  connected  with  the  2.4  Kb/s  STU-2 
terminal  which  encodes  speech  using  the  LPC-10.  The  degradation  may  be 
partly  attributed  to  the  algorithms  which  have  beenoptimized  only  for  clean 
input  speech.  Moreover,  it  may  also  be  due  to  the  interactions  of  distor¬ 
tions  introduced  by  the  first  speech  encoding  scheme  with  that  of  the  sub¬ 
sequent  terminals.  So,  inorder  for  the  16  Kb/s  SBAPC  algo¬ 

rithms  to  provide  greater  utility,  good  tandem  performance  with  LPC  is  a 
definite  requirement. 

APC  schemes  are  known  to  tandem  well  with  LPC  t20j.  Since  the  SBAPC  algo¬ 
rithm  is  a  modified  form  of  APC,  it  also  exhibits  no  undesirable  distortions 
when  connected  with  LPC.  In  particular,  when  the  peaky  LPC  synthe¬ 
sized  waveform  is  fed  into  the  SBAPC,  a  smooth  but  slightly  low-passed 
quality  speech  results.  When  compared  to  the  processed  material 
obtained  from  the  LPC/CVSD  tandem,  the  speech  quality  of  the  LPC/SBAPC 
tandem  is  less  muffled  since  the  SBAPC  algorithm  does  not  produce 

slope  overloading.  On  the  other  hand,  when  the  SBAPC  synthe¬ 

sized  speech  is  fed  into  LPC,  outputs  similar  to  that  derived  from  LPC 
alone  are  obtained.  The  SBAPC/LPC  is  much  more  pleasant  to  listen  to  than 
the  "buzzy"  quality  of  the  CVSD/LPC  tandem. 
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SECTION  IV 


FORTRAN  SIMULATIONS 

4.1  FORTRAN  Simulations  of  the  SBAPC  System 

The  SBAPC  algorithm,  as  depicted  in  Figure  3.2.1,  has  been  simulated 
on  a  PDP  11/70  computer  using  FORTRAN  IV-PLUS.  The  flow  diagram  of  the 
program  is  summarized  in  Figure  4.1.1.  Input  speech,  previously  digitized 
and  stored  on  disks  or  magnetic  tapes,  is  processed  by  the  SBAPC  program 
and  the  output  material  is  also  written  back  on  disks  or  tapes.  Operations 
of  the  transmitter  include  noise  suppression,  quadrature  mirror  filtering 
with  down-sampl ing,  computation  of  low  band  predictor  coefficients,  compu¬ 
tations  of  high  band  predictor  coefficients,  adaptive  bit  allocations,  low 
band  APC  analyzer  with  noise  shaping,  high  band  APC  analyzer  with  noise 
shaping,  serial ization,  and  BCH  encoder.  At  the  receiver,  transmissions 
of  wrong  binary  bits  are  corrected  via  a  BCH  decoder.  After  deserializa¬ 
tion  and  dequantization,  the  received  residual  signals  and  APC  parameters 
generate  estimates  of  the  low  band  and  the  high  band  waveforms  via  their 
corresponding  APC  synthesizers.  The  output  speech  is  then  obtained  by  up- 
sampling  the  two  subband  signals  together  with  quadrature  mirror  filtering. 

At  the  transmitter,  the  speech  samples  are  brought  in  (144  +  18)  at  a 
time,  but  only  144  samples  correspond  to  the  new  frame.  The  other  18  sam¬ 
ples  belong  to  the  previous  frame  and  they  are  employed  for  smoothing  frame 
boundaries.  Then  the  new  data  are  processed  through  the  noise  suppression 
routine  whose  flowchart  is  shown  in  Figure  4.1.2.  Initially,  the  energy 
and  the  spectrum  of  the  input  signal  are  computed.  According  to  its 
energy,  the  decision  on  whether  the  frame  is  silence,  noise  only  or  speech 
with  noise  is  made  with  the  help  of  the  modified  Robert's  algorithm  in 
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FIGURE  4.1.1  FLOW  DIAGRAM  OF  THE  16  KBPS  SBAPC  FORTRAN  PROGRAM 


FIGURE  4.1.2  FLOW  CHART  OF  NOISE  SUPPRESSION  ROUTINE 
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FIGURE  4.1.2  FLOW  CHART  OF  THE  NOISE  SUPPRESSION  ROUTINE  (Cont.) 


Appendix  B.  Based  on  this  decision,  the  noise  statistics  are  updated,  and 
the  noisy  components  are  suppressed  from  the  incoming  signal  using  the 
McAuley  algorithm  as  discussed  in  Section  3.2.  Then  the  noise-reduced 
speech  is  fed  into  the  SBAPC  coder. 

The  first  operation  in  the  coder  is  to  split  the  frequency  band  of 
the  incoming  signal  into  two  subbands  via  quadrature  mirror  filtering  in 
the  manner  as  depicted  in  Figure  4.1.3.  The  waveforms  of  the  low  and  high 
bands  after  down  sampling  are  encoded  using  APC.  The  computation  of  the 
four  low  band  APC  coefficients  are  performed  as  shown  in  Figure  4.1.4  which 
includes  the  pitch  extraction  via  the  autocorrelation  technique,  the  calcu¬ 
lation  of  pitch  gain,  and  the  determination  of  PARCOR  coefficients  from  the 
reduced  waveform  using  the  Levinson  recursion.  Similarly,  the  computation 
of  the  four  high  band  APC  coefficients  are  done  as  depicted  in  Figure 
4.1.5.  In  contrast  to  the  low  band  case,  no  pitch  loop  is  necessary  in  the 
high  band.  After  computing  the  filter  coefficients,  the  prediction  resi¬ 
dual  energies  (QQL,  QQH)  for  the  two  bands  are  utilized  for  quantizer  bit 
allocation.  The  adaptive  rule  is  detailed  in  Figure  4.1.6.  With  the 
definition  of  quantizer  bit  assignments,  the  APC  residual  signals  for  both 
bands  are  generated  and  quantized  as  illustrated  in  Figure  4.1.7.  Makhoul's 
second  order  all-zero  filter  is  also  incorporated  for  shaping  the  quan¬ 
tizing  noise.  After  serializing  the  quantized  parameters  into  a  bit  stream, 
5  blocks  of  (63,45)  BCH  codes  (90  parity  bits)  are  employed  to  encode  50 
side  information  and  175  error  signal  bits  as  shown  in  Figure  4.1.8. 

At  the  receiver,  the  reverse  of  the  transmitter  operations  are  per¬ 
formed.  After  correcting  the  transmission  errors  via  the  BCH  decoder  whose 
flowcharts  are  included  in  Figures  C.l  and  C.2,  the  bit  stream  is 
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FIGURE  4.1.3  FLOW  CHART  OF  QMF  WITH  DOWN- SAMPLING 
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FIGURE  4.1.4  FLOW  CHART  OF  LOW-BAND  PREDICTOR  COEFS  COMPUTATION 


FIGURE  4.1.5  FLOW  CHART  OF  HIGH-BAND  PREDICTOR  COEFS  COMPUTATION 


FIGURE  4.1.6  FLOW  CHART  OF  ADAPTIVE  BIT  ALLOCATION 
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FIGURE  4.1.8  KT-TH  BLOCK  ENCODING  ROUTINE  FOR  (63,  45)  BCH 
COOE  IN  16  KBPS  SBAPC  SYSTEM 
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deserialized  back  to  APC  parameters.  Then  the  received  residual  signals 
are  fed  into  the  APC  synthesizers  as  shown  in  Figure  4.1.9  ,  and  the  esti¬ 
mates  of  the  low  band  and  high  band  waveforms  are  generated.  These  sub¬ 
band  signals  are  filtered  using  quadrature  mirror  filters  as  illustrated 
in  Figure  4.1.10.  The  difference  between  the  low  and  high  band  creates  a 
repl ica  of  the  input. 
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FIGURE  4.1.9  FLOW  CHART  OF  LOW-BAND  APC  SYNTHESIZER 
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FIGURE  4.1.10  FLOW  CHART  OF  QMF  WITH  UP-SAMPLING 


4.2  The  User's  Guide 


4.2.1  Task  Building 

To  build  the  loadable  module  of  the  SBAPC program,  issue  the  following 
indirect  command: 

@  SBAPC 

Operations  performed  by  this  indirect  command  file  includes  the  compilation 
of  all  FORTRAN  routines,  the  purging  of  older  FORTRAN  and  OBJECT  modules, 
and  the  task  building  of  TSK  module.  The  print-outs  involving  the  task 
building  of  the  SBAPC  program  are  shown  as  follows: 


>@SBAPC 


> ! 

>! 

>  ! 

>PIP 

>PIP 

>F4P 

>F4P 

>F4P 

>F4P 

>F4P 

>F4P 

>F4P 

>F4P 

>F4P 

>PIP 

>TKB 


SBAPC. CND 

CHD  *  FILE  TO^COMPILE  AND  BUILD  SBAPC  PROGRAM  AT  16  KBPS 

* , FTN/PU 

*.OBJi*/PU 

SBAPC*SBAPC/NOTR 

TAPE2=TAPE2/N0TR 

FFTRR8*FFTRR8/N0TR 

SER=SER/NOTR 

CESR=CESR/NOTR 

BNSR=BNSR/NQTR 

DSER=DSER/NOTR 

GF2AMD=GF2AMD/N0TR 

CONV*CONV/NOTR 

SBAPC »LP=SBAPC  »SER»CESR»BNSR»DSER»GF2AhD»  CONV»  TAPE2»  FFTRR8 


4.2.2  Operating  Procedures 

After  building  the  SBAPC.TSK  module,  the  program  can  be  started  by 
issuing: 

>RUN  SBAPC 

Print-outs  of  the  actual  running  of  the  program  for  two  situations  (one 
with  no  noise  suppression  and  one  with  noise  suppression)  are  depicted  in 
Figures  4.2.1  and  4.2.2. 
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***  FORTRAN  SIMULATION  OF  SBAPC  *** 


RUN -SBAPC 


ENTER  PROGRAM  PARAMETERS: 

NOISE  SUPPRESSION  FACT0RC0:MIN»151MAX3»8 
CHANNEL  ERROR  RATE(E15.8)»l,E-2 
BEGINNING  FRAME  NUMBER (14)-  1 

ENDING  FRAME  NUMBER < 14 )«  10 

SIGNAL-TO-NOISE  COMPUTATION:  O-YES  1-NO  0 

IS  THE  INPUT  ON  MAG.  TAPE?  N 

IS  THE  OUTPUT  GOING  TO  MAG  TAPE?  N 

OUTPUT  FILE  NAME-  OUf^DAT 

INPUT  FILE  NAME-  VOICE. 3KC 


FR 

$83 

1 

SNR- 

0.2177E+02DB 

CSNR- 

0.2177E+02 

CH. 

ERRS 

0 

1 

0 

0 

0 

0 

FR 

0ss 

2 

SNR- 

0.1259E+02DB 

CSNR- 

0. 1718EF02 

CH. 

ERRS 

1 

0 

0 

1 

2 

0 

FR 

$83 

3 

SNR- 

0.8408E+01DB 

CSNR- 

0.1426E+02 

CH. 

ERRS 

0 

1 

0 

1 

1 

0 

FR 

$=E 

4 

SNR- 

0.8371E+01DB 

CSNR- 

0. 1278E+02 

CH. 

ERRS 

2 

0 

2 

2 

0 

0 

FR 

$  = 

5 

SNR- 

0.1591E+02DB 

CSNR- 

0.1341E+02 

CH. 

ERRS 

2 

3 

1 

0 

0 

1 

FR 

♦  = 

6 

SNR- 

0.1555E+02DB 

CSNR- 

0. 1377E+02 

CH. 

ERRS 

1 

0 

0 

1 

0 

0 

FR 

#  = 

7 

SNR- 

0 . 1806E+02DB 

CSNR- 

0.1438E+02 

CH. 

ERRS 

0 

1 

0 

0 

0 

0 

FR 

|s 

8 

SNR- 

0 . 1340E+02DB 

CSNR- 

0. 1426E+02 

CH. 

ERRS 

1 

0 

0 

0 

0 

0 

FR 

$3C 

9 

SNR- 

0.1818E+02DB 

CSNR- 

0.1469E+02 

CH. 

ERRS 

0 

0 

0 

1 

0 

0 

FR 

$83 

10 

SNR- 

0. 1182E+02DB 

CSNR- 

0. 1441E+02 

CH. 

ERRS 

0 

0 

0 

0 

0 

0 

MISSION  ACCOMPLISHED 


FIGURE  4.2.1:  PRINTOUTS  OF  SBAPC  PROGRAM  (£=0,  BER=0) 
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*V  - 


>RUN  SBAPC 


***  FORTRAN  SIMULATION  OF  SBAPC  *** 

ENTER  PROGRAM  PARAMETERS t 
NOISE  SUPPRESSION  FACTORCO JMINf 151MAX3-0 
CHANNEL  ERROR  RATE<E15.8>»0 
BEGINNING  FRAME  NUMBERU4)-  1 
ENDING  FRAME  NUMBER<I4>»  10 

SIGNAL-TO-NOISE  COMPUTATION*  O-YES  1-NO  0 

IS  THE  INPUT  ON  MAG.  TAPET  N 

IS  THE  OUTPUT  GOING  TO  MAG  TAPET  N 

OUTPUT  FILE  NAME*  OUT. DAT 

INPUT  FILE  NAME*  VOICE. 3KC 


FR 

♦= 
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0.1787E-I-02DB 
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FIGURE  4.2.2:  PRINTOUTS  OF  SBAPC  PROGRAM  (5=7,  BER=10-2) 
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SECTION  V 


CONCLUSIONS  AND  RECOMMENDATIONS 


5.1  Conclusions 

This  contract  has  resulted  in  the  development  of  a  high  quality  16  Kb/s 
Split-Band  Adaptive  Predictive  Coder  (SBAPC)  whose  specifications  are  shown 
in  Table  1-1.  Based  on  our  tradeoff  analysis,  the  SBAPC  system  with  separ¬ 
ate  pitch  and  short-term  prediction  loops  performs  better  than  the  system 
with  one  combined  loop.  In  the  scheme  with  two  loops,  a  1st  order  pitch 
loop  improves  2-3  dB  signal -to-noise  ratio  as  compared  to  the  system  without 
any  pitch  prediction.  Though  further  improvement  can  be  obtained  with  a 
3rd  order  pitch  predictor,  the  system  is  sometimes  unstable  at  data  rates 
below  12  KBPS.  It  is,  therefore,  recommended  to  use  1st  order  pitch  predic¬ 
tion  to  always  ensure  the  stability  of  the  system.  In  contrast  to  the  low 
band,  the  pitch  information  is  not  needed  in  the  high  band  since  this 
waveform  contains  little  information  about  pitch.  Our  results  also  indicate 
that  4th  order  short-term  predictors  on  both  low  and  high  bands  represent  a 
good  compromise  between  the  overhead  bit  rate  and  the  quality  of  the 
processed  speech.  In  addition,  noise  shaping  algorithms  have  been  found 
to  be  advantageous  in  SBAPC  schemes.  Particularly,  Makhoul '  s  second  order  al  Vzero 
noise  shaping  filter  has  resulted  in  slightly  better  quality  speech  as  com¬ 
pared  to  that  of  the  Atal  's  technique.  As  for  the  quantization  of  the  residual  sig¬ 
nals,  adaptive  bit  allocation  of  quantizer  bits  according  to  the  energies 
of  subbands  yields  further  improvement  in  speech  quality.  Since  these  ener¬ 
gies  have  to  be  sent  to  the  receiver  for  quantization  purposes,  adaptive 
bit  allocation  does  not  require  additional  transmission  of  data. 

Informal  listening  tests  indicate  that  the  SBAPC  system  yields  much 
higher  speech  quality  than  that  of  CVSD  in  a  back-to-back  mode.  Also,  when 
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compared  with  other  high  quality  16  Kb/s  algorithms,  such  as,  adaptive  trans- 
from  coding  (ATC),  the  S6APC  processed  speech  is  slightly  low-passed,  but 
its  smooth  quality  is  much  preferred  over  that  of  ATC  with  the  noticeable 
"dish-washing"  background  noise.  Furthermore,  the  SBAPC  system  has  also 
shown  to  perform  well  in  simulated  tactical  situations.  With  the  help  of 
5  blocks  of  (63,45)  BCH  codes,  the  algorithm  yields  high  processed  speech 
quality  even  in  the  presence  of  10~2  channel  error  rate.  In  addition,  the 
noise  suppression  routine  in  the  SBAPC  is  capable  of  reducing  background 
noise  whose  level  is  as  high  as  -6  dB  S/N  which  results  in  highly  intelli¬ 
gible  speech  without  the  annoying  noise  components.  Since  the  SBAPC  is  a 
modified  version  of  adaptive  predictive  coding,  it  also  tandems  favorably 
with  the  2.4  Kb/s  linear  predictive  coder. 

5.2  Recommendations 

Based  on  our  findings  in  this  contract,  the  SBAPC  algorithm  can  indeed 
replace  the  existing  Continuously  Variable  Slope  Deltamodulation  scheme  in 
future  16  Kb/s  terminals.  GTE  strongly  recommends  that  the  SBAPC  should  be 
further  studied  and  be  implemented  in  real-time.  In  particular,  the  follow¬ 
ing  areas  should  be  pursued  to  enhance  the  performance  and  robustness  of 
the  algorithm: 

1)  segmental  quantization  of  residual  signal  s  using  pitch  information 

2)  protection  against  channel  errors  with  more  efficient  error- 
correcting  codes 

3)  noise  reduction  with  adaptive  suppression  factors 
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Appendix  A 

Theory  of  Quadrature  Mirror  Filters 


One  approach  to  band-split/reconstruct  the  input  waveform  is  to 
make  use  of  quadrature  mirror  filters  (QMF)  since  the  use  of  QMF  design 
equations  will  achieve  perfect  spl itting/reconstruction  without  large 
order  filters.  For  explanatory  purposes,  consider  the  ideal  splitting/ 
reconstruction  process  described  in  Figure  A.l.  For  this  system,  the 
following  definitions  apply: 

a.  x(n)  is  a  Nyquist  band-limited  signal  with  z-transform  X(z). 

b.  hi(n)  is  the  impulse  response  of  the  low-pass  filter  the 
z-transform  of  which  is  Hi(z). 

c.  h2(n)  is  the  impulse  response  of  the  high-pass  filter  the 
z-transform  of  which  is  H2(z). 

d.  yx(n)  is  a  baseband  equivalent  low-pass  signal  with  z-trans¬ 
form  Yi  (z) . 

e.  y2(n)  is  a  baseband  equivalent  high-pass  signal  with  z-trans 
form  Y2(z). 

The  signal,  x(n),  is  processed  by  filters  hi(n)  and  h2(n)  yielding 
the  low-pass  and  high-pass  equivalents,  Xi(n)  and  x2(n),  of  the  input 
signal.  As  their  spectra  occupy  half  the  Nyquist  bandwidth  of  the  origi 
nal  signal,  the  sampling  rate  in  each  band  can  be  halved  by  decimating 
(ignoring)  every  second  sample.  For  reconstruction,  the  signals  y j ( n ) 
and  y2(n)  are  interpolated,  by  inserting  one  zero-valued  sample  every 
other  time,  and  then  filtered  respectively  by  hj(n)  and  h2(n)  before 
being  added,  to  give  the  signal  x(n).  The  dashed  lines,  shown  in  Figure 
A.l  represent  the  data  passed  to  the  corrmunication  channel  (s)  by  the 
speech  processing  system. 
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In  order  to  minimize  (x(n)  -  x(n)),  certain  restrictions  on  the 
filters,  hi(n)  and  h2(n),  must  be  met.  We  will  derive  these  restric¬ 
tions  by  constructing  the  transfer  function  of  the  QMF  structure. 

Using  z-transform  notation  and  referring  to  Figure  A.l,  we  may 
write  the  intermediary  filtered  outputs  as 

X i ( z )  =  H  i  ( z )  X(z)  ( A-l ) 

and 


X2(z)  =  H2(z)  X ( z ) 


(A-2) 


The  transforms  of  the  decimated  signals,  yi(n)  and  y2(n),  and  of  the  in¬ 
terpolated  signals,  Ui(n)  and  u2(n),  are  given  by: 


Yi(z)  =  1/2  [xj(z)  +  X i ( -Z  )J 
Y2(z)  =  1/2  [x2(z)  +  X2(-z)' 
U  i  ( z )  =  Yj(z2) 

U2(z)  =  Y2(z2) 


(A-3) 
( A-4 ) 
( A- 5 ) 
(A-6) 


After  the  final  filtering  operation,  the  transforms  of  the  reconstructed 


waveform  components,  t a ( n )  and  t2(n),  are  given  by 

T i ( z )  -  Hj (z)  U i ( z )  ( A-7) 

T2(z)  =  H2(z)  U2(z)  ( A-8) 

Using  the  relations  expressed  in  (A-l)  through  (A-6),  the  z-transforms 
can  be  rewritten  as 

T i ( z )  =  1/2  [Hl(z)  X(z)  +  H,(-z)  X(-z)]  H i ( z )  (A-9) 

T2(z)  =  -1/2  jH2(z)  X(z)  +  H2(-z)  X(-z)]  H2(z)  (A-10) 


The  z-transform  of  the  reconstructed  waveform,  x(n),  is  obtained  by  add¬ 
ing  (A-9)  and  (A-10) 

X(z)  =  1/2  [H?(z)  -  Hf(z)]  X(z)  +  1/2  [h,(-z)  H,(z)  -  H2(-z) 

H2(z)]  X(-z)  ( A- 1 1 ) 

A-3 


If  we  assume  that 


H2(z)  =  M-z)  ( A- 12 ) 

then  the  reconstructed  waveform  transform  becomes 

X(z)  =  1/2  [Hf (z)  -  Hi(-z)]  X(z)  ( A- 1 3 ) 

A 

Evaluating  z  on  the  unit  circle  gives  the  Fourier  transform  of  X(z) 

X(ejwT)  =  1/2  jjH i ( eJwT)  -  Hf(ej(w  +  ws/2)  T)]  X(ejwT)  (A-14) 

For  the  case  when  hj  (n)  is  an  even,  symmetrical  FIR  filter  of  order  N, 
then  it  can  be  shown  that  (A-14)  reduces  to 

X(ejwT)  =  1/2  e‘j(N_1)wT  X(eJwT)  (A-15) 

where  H12(e,:,wT)  exhibits  an  odd  symmetric  property  about  ws/4  and  the 
half-power  point  Hi2(ws/4)  =  0.5. 

The  inverse  transform  yields  a  perfectly  reconstructed  signal  (no 
frequency  distortion)  with  a  gain  factor  of  1/2  and  delay  of  N-l  samples 
as  shown  by 

x(n)  =  1/2  x(n  -  N  +  1)  ( A- 1 6 ) 

Therefore,  we  have  shown  that  no  guarantee  perfect  reconstruction  of  the 
original  spectrum,  the  following  filter  constraints  must  be  satisfied 

hi(n):  symmetrical,  even  order  ( A- 17) 

H2(z)  =  H  i  ( -z )  (A-18) 

ws 

Hi2(ejwt)  +  H12(e'^w+“7^T)  =  1  ( A- 1 9 ) 


APPENDIX  B 


Modified  Robert's  Noise  Detection  Algorithm 

For  all  noise  cancellation  techniques,  it  is  essential  to  obtain  an 
accurate  estimate  of  the  statistics  of  the  background  noise.  Hence,  a 
noise  detection  algorithm  is  needed  which  considers  only  those  frames  of  data 
which  have  a  high  probability  of  containing  noise  alone.  In  the  modified 
Robert's  algorithm,  the  boundary  between  noise  and  speech  plus  noise  is 
established  by  monitoring  the  energy  on  a  frame  by  frame  basis  and  main¬ 
taining  energy  histograms  which  reflect  the  bimodal  distribution  (viz;  one 
mode  depicts  the  all  noise  state  and  one  mode  represents  the  speech  plus 
noise  state).  The  flow  chart  of  the  algorithm  is  shown  in  Figure  B-l. 

In  this  figure,  the  energy  of  the  input  speech  is  computed  and  normal¬ 
ized  by  a  multiplication  factor  so  that  the  maximum  noise  energy  may  vary 
around  32767.  If  the  input  energy  does  not  exceed  16  bits  (i.e.,  does  not 
strongly  imply  the  presence  of  speech),  the  algorithm  updates  the  adaptive 
threshold.  This  routine  first  applies  decay  factor  of  0.9944  to  a  128-bin 
histogram  of  energy  causing  exponential  decay  of  the 

histogram  values  with  a  time  constant  of  4  seconds.  The  value  of  the 
bin  which  encompasses  the  energy  of  the  current  frame  is  incremented  by 
144. 

A  second  128-point  cumulative  histogram  is  then  formed  to  represent 
the  area  under  the  first  histogram  by  computing  the  accumulated  scores 
from  the  low  energy  bin  to  a  high  energy  bin.  If  the  10th  point  of  the 
second  histogram  exceeds  25%  of  the  total  area,  it  is  assumed  that  there 
is  no  noise  present  (silence). 

If  noise  is  present,  a  search  is  made  through  the  second  histogram  for 
the  point  which  represents  80%  of  the  total  area.  The  quantum  of  energy 


corresponding  to  this  point  becomes  the  new  threshold  candidate.  If  this 
candidate  exceeds  the  current  threshold,  the  threshold  is  updated  using  a 
decay  factor  of  0.945  (a  slow  time  constant  of  450  ms).  If  the  candidate 
is  below  the  current  threshold,  the  threhsold  is  updated  with  a  decay 
factor  of  .60653  fa  fast  time  constant  of  45  ms). 

If  noise  is  absent,  the  new  threshold  candidate  is  set  to  zero,  and 
the  threshold  is  updated  using  a  decay  factor  of  .60653  fa  fast  time  con¬ 
stant  of  45  ms}..  Finally,  the  threshold  is  held  to  a  minimum  of  1024  to 
guarantee  updating  of  the  estimated  noise  components  when  background  noise 
suddenly  disappears. 


Appendix  C  Primitive  8CH  Codes 


The  BCH  codes  described  in  this  appendix  are  cyclic  codes  that  are 

* 

well  defined  in  terms  of  the  roots  of  the  generator  polynomials  [_lj  . 

These  codes  were  discovered  by  Bose  and  Chaudhuri  £2j  -  and  separ¬ 
ately  by  Hocquenghem  £4 J .  A  binary  (n,k)  BCH  code  word  consists  of  n 
symbols  (bits  in  the  binary  case)  where  the  first  k  bits  are  the  infor¬ 
mation  bits  and  the  remaining  r  =  n-k  bits  are  redundant  parity  checks. 

It  is  convenient  to  represent  code  words  with  polynomials  as 

f(x)  *  f0  +  V  +  ...  +  fn.jXn‘l  ,  fi  E  GF(2)  (C-l) 

where  each  bit  position  is  associated  with  a  locator.  If  f(x)  is  a  code 
word,  then 


fl{x)  fl  +  f2  *  +  '**  +  fn-in  2  +  f0  1  ^C’2) 

vs  also  a  codeword  in  a  cyclic  codes.  In  the  primitive  BCH  code,  which 
is  the  most  convenient  and  powerful  BCH  code  in  theory  and  practice,  the 
block  length  of  the  code  may  be  defined  as 

n  =  2m  -  I  (C-3) 

and  with  mt  parity  checks,  it  can  correct  any  set  of  t  independent  errors 

within  the  block  of  n  bits,  where  m  and  t  are  arbitrary  positive  inte- 

% 

gers  [5] .  This  code  may  be  described  conveniently  with  the  aid  of 
finite  Galois  field  theory  introduced  in  "ppendix  d. 


C-l 


Let  a  be  a  primitive  element  of  the  finite  field  GF(2  ),  then  the 
primitive  BCH  code  may  be  described  as  the  set  of  polynomials  such  that 


f(a’)  =  0,  i  =  1,  3,  5,  .  2t  -  1 


(C-4) 


It  is  known  in  coding  theory  that  these  polynomials  consist  of  all  multi¬ 
ples  of  a  single  polynomial  g(x),  known  as  the  generator  polynomial. 

This  polynomial  also  satisfies  the  equations  as 


g(a1)  =  0,  i  =  1,  3,  5,  - -  2t  -  1 


(C-5) 


These  generator  polynomials  are  tabulated  in  Table  C-l  for  the  selected 
primitive  BCH  codes. 


Encoding  Procedures 

Let  the  k  information  bits  be  represented  by  the  polynomial  d(x)  as 


k-i  • 
d(x)  =  l  d.  x1 
i=0  1 


(C-6) 


then,  the  code  word  of  n  bits  may  be  expressed  as 


f(x)  =  xn_k  d(x)  +  r(x) 


(C-7) 


where  r(x)  is  the  remainder  (parity  check)  obtained  according  to  the 
following  equation: 


n-k 


x  "  d<x)  =  q(x)  +  ^00 
g(x)  g(x) 


(C-8) 


C-2 


m 


Block  length  n 

D 

■a 

Generator  Polynomial 

63 

57 

i 

gi(x)  =  (6,  1,  0)  =  x6  +  x  +  1 

51 

2 

9 3 (x)  =  gi (x)  •  (6,  4,  2,  1,  0) 

45 

3 

gs(x)  =  g3(x)  •  (6,  4,  2,  1,  0) 

127 

120 

1 

g i (x)  =  (7,  3,  0)  =  x7  +  x3  +  1 

113 

2 

g3(x)  =  gi(x)  •  (7,  3,  2,  1,  0) 

106 

3 

gs(x)  =  g3(x)  •  (7,  4,  3,  2,  0) 

255 

247 

1 

g i (x)  =  (8,  4,  3,  2,  0)  =  x8  +  x4  +  x3  +  x2  +  1 

239 

2 

g3(x)  =  gi(x)  -*.(8,  6,  5,  4,  2,  1,  0) 

231 

3 

9s(x)  =  g3(x)  •  (8,  7,  6,  5,  4,  2,  0) 

TABLE  C-l  GENERATOR  POLYNOMIALS  FOR  SELECTED  PRIMITIVE  BCH  CODES 
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where  g(x)  is  the  generator  polynomial  of  the  code.  Therefore,  encoding 
can  be  performed  by  the  following  procedures: 


1). 

2). 

3). 

The  procedures  of  1)  and  3)  can  be  done  simply  by  shifting  and  addition. 
However,  the  procedure  of  2)  is  rather  involved  in  computation  if  the 
actual  division  is  performed  to  get  the  remainder.  If  the  BCH  code  is 
specified  and  it  is  desired  to  speed  up  the  processing  time  of  2),  it  is 
recommended  to  use  a  look-up  table  procedure  for  the  calculation  of  the 
remainder  from  2).  The  code  word  is  then  transmitted  through  the  noisy 
channel,  where  the  received  code  word  may  be  altered  depending  on  the 
introduction  of  channel  errors. 

Decoding  Procedures 

There  are  several  algorithms  for  a  decoding  of  BCH  codes.  Efficient 
decoding  algorithms  have  been  discovered  for  BCH  codes  QJ  -  [Y] .  The 
Berlekamp  decoder  is  particularly  attractive  for  powerful  codes  that  pro¬ 
vide  for  a  good  deal  of  error  corrections  (e.g.,  10  or  more).  The 
Peterson  algorithm,  however,  is  more  efficient  for  less  powerful  codes 
(e.g.,  the  codes  used  in  generalized  burst  trapping).  In  this  decoding 
procedure,  the  problem  of  finding  efficient  solutions  to  the  key  decoding 
equation  will  be  addressed  by  using  the  Peterson  technique. 


Calculate  xn-k  d(x)  by  left  shifting  the  information  bits 
n-k  times 

Calculate  the  remainder  (parity  bits)  r(x)  from  the  divi¬ 
sion  of  xn‘k  d(x)  by  g(x) 

Add  the  polynomial  xn-k  d(x)  and  r(x)  to  form  the  code 
word 
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-  A 


When  a  BCH  code  word  ff(x)l  is  transmitted  over  a  noisy  channel,  this 
code  word  may  be  corrupted  by  the  channel,  and  what  is  received  {y(x)}  can 
be  different  from  the  intended  code  word.  Thys,  the  received  word  may  be 
expressed  as 


y(x)  =  f ( x)  +  e{x) 


(C-9) 


where  e(x)  is  the  error  polynomial  which  a  decoder  must  compute  to  correct 
errors  introduced  by  the  channel.  Let  the  received  data  be  expressed  in 
vector  y  as 


Y  =  [y0.  yv  •••♦  yn.{\ 


(C-10) 


or  its  associated  polynomial  y(x)  by 

y(x)  =  y0  +  YjX  +  ...  +  Yn.jX11'1  (C-ll) 

Denote  each  of  the  error  location  numbers  by  8-  ,  j  =  1,  2,  ...,  t,  then 

J 

it  is  shown  Ql]  that  the  power  sums  can  be  expressed  as 
Si  =  Y(a1) 

*  7 

•l  B,  ,  i  *  1,  3,  5 . 2t-l  (C-12) 

j=l  J 


In  order  to  find  the  error  locations,  the  Peterson  procedures  consist  of 
three  steps: 


Step  1:  Compute  the  power  sums  S.  from  the  received  sequence  through 

the  relations 


S1  =  y{c^),  i  =  1,  3,  5,  ....  2t-l 


(C-13) 


Step  2:  Compute  the  symmetric  functions  ak,  k  =  1,  2,  t  from 
the  power  sums  ,  i.e., 

a(x)  =  xt  +  o1xt“1  +  -  +  at_j  x  +  at 

( C— 14 ) 

y 

■  (x  +  Sj )  (x  +  $2 )  ...  (x  +  et ) 


and  the  a^'s  may  be  obtained  by  the  use  of  Newton’s  identi¬ 
ties  [lj 


C-6 


If  the  determinant  of  M£  is  singular,  then  reduce  the  error 
number  t  by  2  and  proceed  with  it  again. 

' 

Step  3:  Find  the  error  position  locator  8,,  j  =  1,  2,  ....  t,  which 

J 

is  the  roots  of  the  polynomial  o(x)  in  eq.  (C-14). 

An  efficient  algorithm  for  calculating  the  8j's  from  eq.(C-14>  has  been 
developed  by  Chien  (jf) ,  and  all  that  remains  to  completely  specify  a 
binary  BCH  decoder  is  the  computation  of  the  coefficients  of  error  locator 
polynomial,  o-'s.  As  it  is  noted  from  eq.  (C-15),  the  calculation  of  the 
Oj's  involved  matrix  inversion  which  can  be  expressed  analytically  for  the 
case  t  <  3.  The  results  are: 

v. 

For  t  =  1, 

al  =  S1 

For  t  =  2, 

al  =  S1 

a2  =  ^S3  +  S13^S1 

For  t  =  3, 

°1  =  S1 

°2  =  ^S1Z  S3  +  S5^S1  +  S3^ 

°3  =  ^Sl3  +  V  +  Sla2 

The  calculation  of  the  c^s  and  the  estimation  of  the  error  number  are 
shown  in  Figure  Al  for  t  =  3.  The  flowchart  of  Chien' s  search  decoding 


C-7 


m  i  ( ot ) 


FIGURE  C-l: 
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procedure  is  shown  in  Figure  C-2.  This  flowchart  is  for  t  -  3,  i.e.,  the 
decoding  algorithm  can  correct  errors  up  to  3.  One  interesting  observa¬ 
tion  in  this  decoding  procedure  is  that  the  correction  of  errors  may  be 
performed  erroneously  if  the  number  of  errors  in  the  block  is  greater 
than  3.  Hence,  the  corrections  may  introduce  additional  channel  errors. 

In  order  to  avoid  these  additional  errors,  error  corrections  are  made 
only  when  the  estimated  error  number  (NES  in  FigureC-1)  equals  to  the 
measured  error  number  (K  in  FigureC-2).  This  procedure  eliminates  most 
of  the  additional  errors  when  more  than  3  errors  exist  in  the  received 
word.  In  other  words,  the  detection  of  errors  more  than  3  (i.e.,  4,  5, 

6,  ...,  etc.)  is  feasible  in  most  of  the  cases.  This  fact  contributes  some 
improvements  of  the  coder  performance  when  the  channel  is  very  noisy  (bit 
error  rate  *10‘2). 


Received  ol5  oz,  o  t >  NES 


FIGURE  C-2:  CHIEN'S  SEARCH  DECODING  PROCEDURE 
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Appendix  D  Operations  in  Galois  Field 

A  Galois  field  is  a  finite  set  of  elements  that  satisfy  the  axioms 
of  a  general  field.  Two  operations  (addition  and  multiplication)  and 
their  inverses  are  defined  on  the  field  elements.  There  is  an  identity 
element  for  each  field  element  for  both  of  the  operations  (0,  1)  that  is 
itself  in  the  field.  Also,  both  addition  inverses  and  multiplication  in¬ 
verses  are  in  the  field.  Finally,  the  rules  of  commutation  and  associa¬ 
tivity  are  obeyed  by  the  elements  of  the  field. 

Consider  the  following  sixteen  polynomials  and  their  vector  binary 
representations. 


0 

0000 

1 

rH 

o 

o 

o 

1  +  X 

0011 

1  +  X  +  X2 

0111 

1  +  X  +  X2  +  X3 

mi 

X 

0010 

X  +  X2 

0110 

X  +  X2  +  X3 

1110 

X2 

0100 

X2  +  X3 

1100 

X3 

1000 

1  +  X3 

1001 

1  +  X2 

0101 

1  +  X2  +  X3 

1101 

X  +  X3 

1010 

1  +  X  +  X3 

1011 
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As  long  as  addition  and  multiplication  of  these  polynomials  is  defined  so 
that  the  axioms  for  the  field  are  obeyed,  then  this  will,  in  fact,  be  a 
Galois  field  of  24  elements  (GF(24)). 


It*- 

h 


Addition  is  defined  to  be  modulo  2.  Each  element  is  its  own  additive  I 

inverse  and  addition  and  subtraction  of  elements  are  the  same.  ] 

J 

Multiplication  must  be  defined  so  that  the  product  of  two  elements  ; 

does  not  take  us  out  of  the  field.  For  this  reason,  multiplication  in  a  ; 

Galois  field  is  not  ordinary  multiplication  of  polynomials.  Rather,  multi- 

j 

plication  is  defined  modulo  an  irreducible  polynomial,  the  primitive  poly-  j 

nomial  of  the  Galois  field.  For  our  field  GF ( 2  ),  the  primitive  polynomial  \ 

is  1  +  X  +  X".  To  generate  the  16  vectors  in  the  field,  all  one  needs  to  j 

do  is  to  divide  Xm  where  m  =  0,  1,  ...  14  by  the  primitive  polynomial.  \ 


1  0 

X  X 

X2  X2 

y  3  v  3 

x  _j _ r£i  +  xj 


x-  1  +  X  l  +  x  +  X-  T  X4 

Xs  X  +  X2  X  Rfx  +  X23 


It  is  now  soon  that  the  product  of  two  binary  vectors  in  the  field  is 
just  the  sum  of  their  powers.  The  table  repeats  every  fifteen  powers  so 
it  is  all  done  modulo  15. 
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LISTINGS  OF  FORTRAN  PROGRAMS 


!  SBAPC.CMD 

I  AUG.  11,  1980 

i  CMD  FILE  TO  COMPILE  AND  BUILD  SBAPC  PROGRAM  AT  16  KBPS 

PIP  * . FTN/PU 

PIP  * . OBJ ; */PU 

F4P  SBAPC, LPJaSBAPC/NOTR 

F 4P  TAPE2,LPJ*TAP£2/N0TR 

F4P  FFTPR8,LPS=FFTRR8/N0TR 

F4P  SER,LP:*SER/NOTR 

F4P  CESR,LP:=CESR/NOTR 

F4P  BNSR,LP:=BNSR/NOTR 

F4P  DSER,LP:=DSER/NOTR 

F4P  GF2AMD,LP!=GF2AMD/NOTR 

F4P  CONV,LP:=CONV/NOTR 

PIP  SBAPC. TSK;*/DE 

TKB  SBAPC , LP=5BAPC ,SER,CESR, BNSR ,DSER , GF2 AMD ,CONV ,TAPE2,FFTRR8 
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FORTRAN  IV-PLUS  V02-51E  16:33:20  O6-OCT-8O  PAGE  1 

S8APC.FTN  /WR 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 


0018 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c***4* 

c 

c 

70 


098988888888988898888888888888888 
8  0 
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FORTRAN  PROGRAM  TO  SIMULATE  THE  SPLIT-BAND  ADAPTIVE 
PREDICTIVE  CODINGCSBAPC)  AT  16  KBPS 
STUDIED  FOR  DCA  UNDER  CONTRACT  1 00-7 9-C-0038 
BY  GTE  PRODUCTS  INC.,  NEEDHAM  HEIGHTS,  MASS. 02194 
DATE  : OCT-6-80 


TO  BUILD  THE  TSK  FILE,  TYPE 
8SBAPC 

TO  RUN  THE  PROGRAM,  TYPE 
RUN  SBAPC 

DEVICE  ALLOCATIONS:  1=SBAPC  PARAMETER  FILE 

2=INPUT  FOR  TAPE2 
3=0UTPUT  FOR  TAPE2 
4*CH ANNEL  ERROR  FILE 
5=KEY  BOARD 
6*LINE  PRINTER 


COMMON/MTAPEO/NIN(170) , NOUT (170) 
C0MM0N/MTAPE1/NSKIP,IST,NT0TI,NTUPS,NT0T0 
C0MM0N/MTAPE2/NEND,NERR,NFILE,NINS,N0UTS 
COMMON /TBL/QTBL( 457) 

COMMON/NSTBL/FNSTBL(50) 

C0MM0N/SBTA/IBPT,IBBT,IB0L,IBQH,IBPL(4) ,IBPHC4) 
COMMON/SDTA/MPIT ,IBETA,IQQL, IQQH , I DPL ( 4 ) , 1DPHC4) 

COMMON /S*/ICOUNT,IPRSW 
DIMENSION  XRC256) ,XI(256) 

DIMENSION  HL0*(32) ,HUPPC32) 

DIMENSION  YYHC288) , YYL ( 2 8 8 ) , CLOW ( 1 44 ) , CUPP C 1 44 ) 
DIMENSION  PAR LOW (5) ,PARUPP(5) , ALOW (5) ,AUPP(5) 

DIMENSION  RNLC144) rRNH(144) 

DIMENSION  XBUF(288),EL(72),EH(72) 

DIMENSION  INBAI360) ,INB{63) ,NERBC6) , INC (18) 

REAL  OLPC32) ,L0(144),UP(144) 

BITS  ALLOCATIONS  TO  QUANTIZE  SIDE  INFORMATION 

DATA  IBPT,IBBT,IBQL,IBQH,IBPL,IBPH/6,4,4*5,3,3,4,4, 3,3/ 

1-0  INTERACTION 


IKB=5 


E-2 
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0019  I  NR  =  6 

C  PRINT  INTERMEDIATE  RESULTS :  0=NO  IsPRINT 

0020  ISNOsO 

0021  ISMlsO 

0022  IPRSM=0 

C 
C 

0023  NRITE ( IKB , 200 ) 

0024  200  FORMAT(///,20X, '***  FORTRAN  SIMULATION  OF  SBAPC  ***', 

1//, 10X, 'ENTER  PROGRAM  PARAMETERS:') 

C 

C 

C  NOISE  SUPRRESION  FACTOR 

C 

0025  NR ITE ( I KB , 2 1 7 ) 

0026  217  FORMATUHS,  'NOISE  SUPPRESSION  FACTOR  [  0  :  M I N  ,  1 5 :  M  AX]  =  •  ) 

0027  READ(1KB,216)NSF 

C 

C  CHANNEL  ERROR  RATE 

C 

0026  NRITE ( IKB , 2 1 3 ) 

0029  213  FORMATUHS  ,  'CHANNEL  ERROR  R ATE C El 5 . 8 )  =  •  ) 

0030  READ(IKB,490)CERT 

C 
C 

0031  NRITE (IKB  *214) 

0032  214  FORMATUHS/ 'BEGINNING  FRAME  NUMBER(I4)=  *,3X) 

0033  READ(IKB,216)LC0UNT 

0034  NRITEUKB/2I5) 

0035  215  FORMATUHS, 'ENDING  FRAME  NUMBER  (  1 4  )  *  •  ,  3X  ) 

0036  READ(IKB,216)MC0UNT 

0037  216  FORMAT ( 16 ) 

C 

0038  NRITE (IKB, 242) 

0039  242  FORMATUHS,  ' SIGNAL-TO-NOISE  COMPUTATION: 

1  0=YES  1=N0',3X) 

0040  READ(IKB,246)I5NR 

0041  246  FORMAT (II) 

C 

C 

C 

c 

c 


C 

INITIALIZATION 

0042 

c ***** 

LX=1 44 

0043 

N0L=1 8 

0044 

XP=FL0AT(N0L+1) 

0045 

L0CNT=1 

0046 

NF1LT=32 

0047 

NFILT2sNFILT/2 

0048 

ILMX=3 

0049 

ILMNsl 

0050 

IOIL=406 

0051 

IQIHS432 

E-3 
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00b2 

I  RN  =  0 

0053 

JRN  =  0 

0054 

CSNR=0. 

0055 

KOUNT=0 

0056 

XSNR=0. 

0057 

0 1 L=0 . 0 

0058 

02L=0.0 

0059 

OlHsO.O 

0060 

Q2H=0.0 

0061 

00  302  1=1, LTH 

0062 

RNL ( I ) =0 . 

0063 

RNH  l I ) =0 . 

0064 

LO(I)=0. 

0065 

302 

UP(I)=0. 

0066 

DO  303  1=1, LX 

0067 

XBUF ( I ) =0 . 

0068 

Y YL ( I ) =0 , 

0069 

YYH ( I ) =0  . 

0070 

CUPP(I)=0. 

0071 

303 

CLOW ( I ) =0 . 

0072 

C 

C 

ICOUNTsO 

c 

MAG  TAPE  OR  DISK  1*0 

0073 

NEND=0 

0074 

LTH=LX/2 

0075 

FLTH=LTH 

0076 

WTOTI=LX+NOL 

0077 

NTOTO=LX 

0078 

NTUPS=LX 

0079 

I  ST=  1 

0080 

NSKIP=1 

0081 

NSKIPS=NSKIP 

0082 

N  F I L  E  =  1 

0083 

c 

CALL  TAPE2C8) 

c 

c 

READ  IN  PARAMETERS  FOR  FILTERS  t.  OU  ANTI  IZERS 

0084 

CALL  ASSIGNC1, 'PARAM.DAT' ) 

0085 

DO  495  1=1 , NFILT 

0086 

495 

READU  ,490)HL0W(I) 

0087 

490 

FORMAT ( El  5 • 8  ) 

C 

C 

C 

INITIALIZE  RANDOM  NUMBER  GENERATORS 

0088 

DO  491  1=1,457 

0089 

CALL  RANDU(IRN,JRN,YQ) 

0090 

REA0(1 ,493)QTBL(I) 

0091 

493 

FORMAK  1X,E12.5) 

0092 

491 

CONTINUE 

C 

C 

READ  NOISE  SUPPRESSION  TABLE 
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C 

0093 

0094 

/NR 

DO  497  1*1, NSF 

READC1 ,493) (FNSTBL(J) ,J*1 ,50) 

009b 

0096 

497 

C 

C 

C 

C 

CONTINUE 

CALL  CLOSE(l) 

0097 

0098 

0099 

0100 

c 

c 

c 

c*** 

DEFINITION  OF  SBAPC  SYSTEM  PARAMETERS 

NL0Ns4 

NUPP=4 

NNN=NL0W+1 

NNU*NUPP+1 

0101 

0102 

c 

c*** 

D 

COMPUTE  THE  HIGH  BAND  IMPULSE 

DO  144  1=1 , NFILT 
HUPP{I)-HLON(I)*(-i)**(I*»l) 
l«RITE(IKB,143)HLOW(I)  ,HUPP(I) 

RESPONSE 

D143 

FORMAT C IX, ' HLQW-HUPP • ,2CE15.8) 

) 

0103 

144 

C 

CONTINUE 

C 

C 


c 

r 

TRANSMITTER  STARTS  HERE 

V. 

♦♦♦♦♦♦♦♦♦ 

c 

C 

C 

c***** 

DATA  INPUT 

0104 

1000 

ICOUNTsICOUNT+1 

0105 

CALL  TAPE2 ( 1 ) 

0106 

IF  (NERR  .NE.  0)GOTO  4900 

C 

IF  THE  END  OF  TAPE  IS  REACHED , PROCESS  1  MORE  FRAME 

0107 

IF ( NEND  .EO.  0 ) GOTO  1014 

0108 

DO  1005  Is  1 , LX 

0109 

1005 

NIN(I)sO 

0110 

1014 

IF ( ICOUNT  ,LT.  LCOUNT)GOTO  1000 

0111 

C 

IF ( ICOUNT  .GT.  MCOUNT)GOTO  5000 

0112 

C 

DO  1015  J=1,LX 

0113 

XBUF(LX+J)=NIN(J) 

0114 

1015 

C 

CONTINUE 

C 

SUPPRESS  BACKGROUND  NOISE  IF  DESIRED 

FORTRAN  IV-PLUS  V02-51E  16:33:20  06-OCT-80 

SBAPC.FTN  /WR 


PAGE  5 


C 

0115 

/** 

IF ( NSF . EQ . 0 ) GO  TO  8100 

W 

c 

r> 

PASS  THROUGH  THE  NOISE  SUPPRESSION  FILTER 

0116 

n 

CALL  MRNSA(XR,XI,  NTOTI ,  NSF ) 

0117 

DO  8040  I=l,NTOTI 

0118 

XBUF(LX+I)=XR(I) 

0119 

8040 

c 

CONTINUE 

c 

INTERPOLATE  FRAME  BOUNDARY 

0120 

DO  8020  1=1, NOL 

0121 

F1=FL0AT(I)/XP 

0122 

F2=1.-F1 

0123 

XBUF(LX+I)=XBUF(LX+I)*F1+F2*0LP(I) 

0124 

8020 

OLP(I)=XR(LX+I) 

CCC 

C 

0125 

8100 

CONTINUE 

c*** 

C 

BANDPASS  FILTERING  WITH  QUADRATURE  MIRROR  FILTERS 

c*** 

0126 

DO  1101  J=1 , LX 

0127 

FF=0. 

0128 

GG=0. 

0129 

DO  1100  1=1 , NFILT 

0130 

FF=FF+HLOW(I)*XBUF(LX+J-I+l) 

0131 

GG=GG+HUPP(I)*XBUF(LX+J-I-H) 

0132 

1100 

CONTINUE 

0133 

KK=d/2 

0134 

JJ=KK*2 

0135 

IF(JJ  ,NE,  J3GOTO  1101 

0136 

LOCLTH+KK)=FF 

0137 

UP(LTH+KK)*GG 

0138 

1101 

c 

CONTINUE 

c 

c 

9999999999999999999999999999899999999999 

c 

9  9 

c 

9  LOW  BAND  ENCODING  9 

c 

9  9 

c 

c 

9899998899999898889988989998988899988999 

c 

c 

c 

COMPUTE  THE  ACF  OF  INPUT 

0139 

DO  1105  M=1 , 64 

0140 

XR(M)=0, 

0141 

LTR=LTH-M+1 

0142 

DO  1105  1=1, LTR 

0143 

1105 

c 

XR(M)=XR(M)+L0(LTH4I)*L0(LTH+I+M-1) 

c 

c 

FINO  PITCH  NUMBER  SKIPPING  UNVOICED  FRAMES 

► 


E-6 


A 
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0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 


0156 

0157 

0158 

0159 

0160 


0161 

0162 


0164 

0165 

0166 

0167 


2040 

C 

C 

c 

c ***** 


TERM*0.0 
TERM  1*0 . 0 
XLGsO.O 
MPIT=0 
ISL0PE*1 

IF(IPITL.EQ.1.0R.XRC1).LE.1)G0  TO  2047 

00  2040  1^8 , 64 

IF(XRCI)  .LT.  OJISLOPEs-l 

IFdSLOPE.EQ.  l.OR.XR(I)  .  LE.  XLG)  GOTO  2040 

MPITal-l 

XLGsXRCI) 

CONTINUE 


CALCULATE  FEEDBACK  GAIN  IN  PITCH  LOOP 
00  2045  J*1 , LTH 

TERM1»TERM1  ♦LOCLTH'fJ  )*LO(LTH+J“MPIT) 

TERM=TERM+L0(LTH+J-MPIT)**2 

BETA*0. 

IF (TERM  . NE.O) BET A=TERM1 /TERM 


COODODDDODDDDDODDDDDOD 

C 

0  WRITE(IKB,2048) I BBT , BETA , IBETA 

C 

CDDDDDDDDDDDOODDDDDDDD 

C 

C 

C  QUANTIZE  BETA 

101  =  1 

CALL  QTZ(IQI,IBBT, BETA, IBETA) 

C 

CDDDDDDDDODODODDDDO 

D  W RITE (I KB , 2048 ) I BBT, BETA , IBETA 

2048  FORMAT (1 OX, 'IBBT-BETA-IBETA: ',13, £15.8,16) 

CDDDDDDDDDDODDDDDDD 

C 


c 

c ***** 


2100 

C 

C 

C 

c 

C4»*»4 

c 


COMPUTE 


REDUCED  WAVEFORM 


I F ( MPIT  .EQ.  0)8ETA*0. 

DO  2100  Jal , LTH 

XI(J)aLO(LTH+J)-BETA*LO(LTH+J-MPIT) 

CONTINUE 


COMPUTE  ACF  FROM  THE  REDUCED  WAVEFORM 


DO  2111  Ial,NNN 
XR(I)aO.O 


E-7 


<*>K 
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0170 

0171 

0172 


0173 

0174 

0175 

0176 


0177 


017  8 


0179 


0180 

0181 

0182 


ITR=LTH-I+1 
DO  2111  J=1,ITR 

2111  XR(I)*XR(I)+XI(J)*XICI+J-1) 

C 

C 

C  NORMALIZE  ACF 

C 

R0=XR ( 1 ) 

IF(R0  .LE.  0)R0=1. 

DO  2200  1=1, NNN 
2200  XR(I)»XR(I)/R0 

C  COMPUTE  SPECTRAL  PREDICTION  COEFFICIENTS 

C***** 

C 

CALL  NR2NAP(ALOW,XR,NLOW,U,PARLOW) 

C 

C 

CDDDDDDDDDDDDDDDDDDDDDDD 
D  DO  2204  I=l,NLOW 

D  WRITECIKB, 2205)1 BP L(I), PAR LOW(I),IDPL(I),ALOW(I) 

D2204  CONTINUE 

CDDDDDDDDDDDDDDDDDDDDDDD 

C 

C  QUANTIZE  LOW  BAND  PARCORS 

CALL  QTPCRL(PARLOW) 

C 

C 

CDDDDDDDDDDDDDDDDDDDDDDD 
D  DO  2206  1  =  1  , NLOW 

D  WRITE(IKB,2205)IBPL(I) ,PARLOW(I) ,IDPLCI ) , ALOW (I ) 

D2205  FORMAT (20X, ' IBPL-PARLOW-IDPL-ALOW : 'fI3,E15.8,Ib,E15.8) 

D2206  CONTINUE 
CDDDDDDDDDDODDDDDDDDDDDDD 
C 

C***** 

C  CONVERT  PARCORS  BACK  TO  PREDICTOR  COEFS 

CALL  PARPRE(NLOW,PARLOW,ALOW) 

C 

C 

CDDDDDDDDDDDDDDDDDDDDDDDDDD 
D  DO  2207  1=1, NLOW 

D  wRITE(IKB,2208) ALOW ( I ) 

D2208  FORMAT(30X,E15.8) 

D2207  CONTINUE 

CDDDDDDDDDDDDDDDDDDDDDDDDDDD 

C 

C***** 

C  CALCULATE  GAIN 

C***** 

C 

QQL=SQRT (RO*PARLOW(NNN)/FLTH) 

IF ( QQL  .LE.  1,0) QQL=1 . 0 
QQL=ALOG(QQL)/ALOG(2.0) 

C 


E-8 


****** 
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0183 

0184 

0185 


0186 

0187 

0188 

0180 

0190 

0191 

0192 

0193 

0194 

0195 

0196 


0197 


C 

CDDDDDDDDDDDDDDDDDDDDDD 
0  MRITECIKB, 2220)1 BO L,0QL,I0QL 

CODDDDDDDOODOODDDDOODDDD 
C 

C  QUANITZE  QQL 

C 

101=32 


CALL  QTZ ( IOI , IBQL,QQL, IQOL) 
QQL=2.0**QQL 


C 

C 

CDDDDDDDDDDDDDDDDDDDDDDDDDDDD 

D  MRITECIKB, 2220)1 BQL,QQL,IQQL 

D2220  FORMAT (1 OX, » IBQL-QQL-IGQL: ',I3,E15.8,I6) 

CDDDDDDDDDDDDDDDDDDDDDDDDDDDDD 

C 

C 

c 
c 
c 
c 
c 
c 


88898998888888889988888888888888988888888 
8  8 
8  HIGH  BAND  ENCODING  9 
8  9 
99999999999999989999999999999899999999999 


C***** 

C  COMPUTE  THE  SPECTRAL  PREDICTION  COEFS 

2300  CONTINUE 

DO  2410  1=1, NNU 
XR ( I ) =0 . 

LTR=LTH-I+1 
DO  2410  J=1 , LTR 

2410  XR(I)=UP( LTH+ J )*UP  CLTH  +  I+J*1 ) +XR  C I ) 

C 

R0=XR(1) 

IFCPO.LE.O. )RO=i. 

DO  2420  1=1, NNU 
2420  XR(I)=XR(I)/RO 

CALL  NR2NAP(AUPP,XR,NUPP,U,PARUPP) 

C 

C 

C 

CODDDDDDDDDDDDDDDDDDDDDDDDDDDDD 
D  DO  2421  1=1 ,NUPP 

D2421  WRITE (IKB, 2422 )IBPH( I) ,PARUPP(I) ,IDPH(I ) ,AUPP(I) 
CDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD 
C 
C 

C  OUANTIZE  HIGH  BAND  PARCORS 

CALL  OTPCRH(PARUPP) 

C 

C 

CDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD 
D  DO  2424  1=1 , NUPP 

D  WRITE ( IKB, 2422 ) IBPH ( I ) , PARUPPC I ) , IDPH  C I ) , AUPPC 1 ) 

D2422  FORMAT (// IX, ’ IBPH-PARUPP-IDPH-AUPP • , 1 3 , El  5 . 8 , 1 6 , E 1 5 . 8 ) 


E-9 
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0198 


0199 

0200 

0201 


0202 

0203 

0204 


0205 

0206 

0207 

0208 

0209 


0210 

0211 


0212 


D2424  CONTINUE 
CDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD 
C 
C 

C  CONVERT  TO  PREDICTOR  COEFS 

C 

CALL  PARPRE(NUPP,PARUPP,AUPP) 

C 

C 

CDDDDDDDDDDDDDDDDDDDDDDDDDDDD 
D  DO  2425  1=1; NUPP 

D2425  WRITE(IKb,2208)AUPP(I) 

CDDDDDDDDDDDDDDDDDDDDDDDDDDD 

C 

OOH=SQRTCRO*PARUPPCNNU)/FLTH) 

IFCOOH  .LE.1.0)QQH=1.0 
QQH=ALOG(QQH)/ALOG(2,0) 

C 

C 

CDDDDDDDDDDDDDDDDDDDDDDDD 
D  WRITE(IKB,2430)IB0H,0QH, IQQH 

CDDDDDDDDDDDDDDDDDDDDDDDD 
C 

C  QUANTIZE  OQH 

IQI=95 

CALL  QTZCIQI, IBQH , QQH , IQQH) 

QQH=2.0**QQH 

C 

CDDDDDDDDDDDDDDDDDDDDDDDDDD 

D  WRITECIKB, 2430)1 BQH,  QQH , IQQH 

D2430  FORMATC//10X, • IBQH-QQH-IQOH ' ,I3,E15.8,I6) 

CDDDDDDDDDDDDDDDDDDDDDDDDDDD 

C 

C 

c 

C***4* 

C  ADAPTIVE  BIT  ALLOCATIONS 

C 

C  FIND  IERR  AND  KERR  OR  IBIL  AND  IBIH 

C  ASSUME  THE  AVERAGE  BIT=i.5 

FIBIL=1. 5+ ALOG (QQL/QQH ) / ALOG (4.0) 

IBIL=FIBILf0.5 

IF(IBIL.GE.ILMX)IBIL*ILMX 

IF(IBIL.LE.ILMN)IBIL=ILMN 

IBIH=3-IBIL 

C 

C 

C***** 

C  LOW  BAND  NOISE  SHAPING 

B 1 L=0 , 0 
82L=0 . 0 

C 

C  CALCULATE  ACF  OF  THE  LOW-BAND  PREDICTION  COEFFICIENTS 

RLOd.'O 


E  - 1 0 
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0213 

RL1=AL0W(1 ) 

0214 

RL2-ALOW ( 2 ) 

0215 

00  4522  Ksl,NL0M 

0216 

K1=K+1 

0217 

K2  =  K  +  2 

0218 

TR=ALON(K) 

0219 

TRlsO.O 

0220 

TR2sO.O 

0221 

IF(Kl.LE.NLOM)TRlsALOMCKl) 

0222 

IF(K2.LE.NLOW)TR2=ALOW(K2) 

0223 

RL0=RL0+TR**2 

0224 

RL1*RL1+TR*TR1 

0225 

RL2sRL2+TR»TR2 

0226 

4522 

CONTINUE 

0227 

DETL=RL0**2-RL1**2 

0228 

IF(DETL.GT.1.E-5)G0  TO  4524 

0229 

QQL=l.£-6 

0230 

GOTO  4530 

0231 

4524 

BlLsRLl*(RL2-RL0)/DETL 

0232 

C 

C ***** 

B2L=(RL1**2-RL0*RL2)/DETL 

c 

c***** 

HIGH  BAND  NOISE  SHAPING 

0233 

4530 

r 

CONTINUE 

0234 

B 1  H  =  0 , 0 

0235 

c 

B2HS0.0 

V 

c 

CALCULATE  ACF  OF  THE  HIGH-BAND  PREDICTION  COEFFICIENT 

0236 

RHOsl.O 

0237 

RHl=AUPP(l) 

0238 

RH2=AUPP(2) 

0239 

DO  4544  K*1,NUPP 

0240 

K1=K+1 

0241 

K2*K+2 

0242 

TR=AUPP(K) 

0243 

IRlsO.O 

0244 

TR2*0.0 

0245 

IF(K1,LE.NUPP)TR1*AUPP(K1) 

0246 

IF(K2.LE.NUPP)TR2*AUPP(K2) 

0247 

RH0sRH0+TR**2 

0248 

RH1SRH1+TR4TR1 

0249 

RH2=RH2+TR*TR2 

0250 

4544 

CONTINUE 

0251 

DETH=RH0**2-RH1*»2 

0252 

IF ( DETH *GT .l.E-5)G0  TO  4555 

0253 

QQL=l.E-6 

0254 

QQHsl .E-6 

0255 

C 

GOTO  4015 

0256 

C 

4555 

B1H=RH1*(RH2-RH0)/DETH 

0257 

c 

B2Hs(RHl**2-RH0*RH2)/DETH 

0258 

4015 

CONTINUE 

E-ll 
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C 

c ***** 

c 

CODING  THE  LOW-BAND  1 

c 

GENERATE  THE  TRUE  ERROR  SIGNAL  WITH  QUANTIZER  IN  LOOP 

0259 

c 

c 

c 

QLEVL=QQL 

0260 

DO  2109  Jsl,LTH 

0261 

SUM=0, 

0262 

DO  2108  K  =  1 i NLOW 

0263 

TERM=-ALOW(K)*(RNLCLTH+J-K)-BETA*RNLCLTH*J-K-MPIT) ) 

0264 

2108 

SUM=SUM+TERN 

0265 

SUM=SUH+B£TA*RNL{LTH+J-MPIT) 

0266 

ELC J)=LO(LTHtJ)-SUH+BlL*QlL+B2L*Q2L 

0267 

XIN=EL(J)/OLEVL 

0268 

IQI-IQIL 

0269 

IFCIBIL.GE.DCALL  ERSQTZ  ( IQI ,  IBIL , XIN  , XOUT  ,  I DOT ) 

0270 

NIN  (  J )=IDQT 

0271 

EL(J)=XOUT*QLEVL 

0272 

QL=(XOUT-XIN)*QLEVL 

0273 

Q2L=Q1L 

0274 

Q 1 L=QL 

0275 

2107 

HNL(LTH+J)=SUM+EL(J) 

0276 

2109 

C 

C 

CONTINUE 

C 

C 

c***** 

c 

CODING  THE  HIGH-BAND 

c 

GENERATE  THE  ERROR  SIGNAL  WITH  QUANTIZER  IN  LOOP 

0277 

c***** 

QLEVH=QQH 

0278 

DO  3050  J=1,LTH 

0279 

SUM  =  0. 

0280 

DO  3040  K=1,NUPP 

0281 

TERM*-AUPP(K)*RNH(LTH+J-K) 

0282 

3040 

SUM=SUN+TERM 

0283 

EH(J)=UP(LTH+J)-SU*+B1H*Q1H+B2H*Q2H 

0284 

XINsEH(J)/QLEVH 

0285 

1QI-IQIH 

0286 

IFdBIH.GE.  DCALL  ERSQTZ ( IQI ,  IBI H  ,  XIN  ,  XOUT  ,  IDOT ) 

0287 

NlN(J+72 ) = 1DOT 

0288 

EH(J)=XOUT*QLEVH 

0289 

QHx(XOUT-XIN)*QLEVH 

0290 

Q2H=U1H 

0291 

Q1 H=QH 

0292 

3050 

RNH(LTH+J)=EH(J)+SUH 

C 

C 

c  rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr 

c  r  R 

C  R  FOR  DEBUGGING  ONLY  R 
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0293 


0294 

0295 

0296 

0297 

0296 

0299 


0300 


0301 

0302 

0303 


0304 

0305 

0306 


0307 


C 

C 

C 

C 

841  0 


8420 

8430 

0 

D 

D8  2  22 

8333 

C 

C 

C 

C 

c 

8444 


C 
C 

C  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  f  +  +  +  4  +  +  + 

C 

C  RECEIVER  STARTS  HERE... 

C 

C  +  +  +  +++♦♦  +  ♦♦♦♦♦♦♦■♦•♦♦■♦•♦♦♦  ♦♦  +  +  ♦♦  +  +  +  + 

C***** 

C  BCH  CODE  ENCODER 

C 

C  ENCODE  5  BLOCK 

C 

DO  8447  KT=1,5 

CALL  ENCBCH(INBA,INB,INC,KT) 

8447  CONTINUE 

C 

C 

C  PRINT  INPUT  BINARY  DATA  IF  DESIRED 

C 

C  IF(IPRSW.EQ.1)WRITE(5,8450)(INBA(K),K=1,360) 

8450  FORMAT (6012 ) 

C 

C 

C 

C  ***  END  OF  TRANSMITTER  *** 

C 

C 

C4*»*4 

C  CHANNEL  ERROR  SIMULATOR 


8  8 

IF(IPRSW.NE.l)GO  TO  8444 
PRINT  TRANSMITTER  DATA 

WRITE (5, 8410 ) ICOUNT , MPIT , I BIL , IBIH 
FORMAT (IX, 'FR*' ,I6,3X,3I6) 

WRITE (5,8420)QQL,QQH, BETA, (PARLOW( KK ) ,KK=1 ,4) , 
WRITE ( 5, 8430) IQQL, IQQH, IBETA, ( IDPL(KK ) ,KK=1 , 4) 
FQRMAT(10X,11E11,4) 

FORMAT(10X,11 (16, 5X)) 

DO  8222  K=1 , 72 

wRITE(5,8333)K,EL(K),EH(K),NIN(K),NIN(K+72) 

CONTINUE 

F0RMAT(1X, »EL( • ,13, » )=» , El 1 . 4 , 3X , El 1 . 4 , 3X , 216 ) 


SERIALIZATION  OF  PARAMETERS 
CONTINUE 

CALL  SER(INBA,INB,IBIL) 

IF(IPR5W.EQ.1)WRITE(5,8450) (INBA(K) ,K=1 ,360) 
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PA^iE  13 


0308 


0309 

0310 

0311 

0312 

0313 


0314 


0315 


031b 


0317 

0318 

0319 


C 

C 

C 

C 

C 

C 

C 

C 

C 


9700 

C 

C 

C 

C 

C 

C 

C 

C 

c*  *  *♦* 

c 

c 


c 

D 

D 

c 

c 

c 

c 

c 

c 

c 

c 


D 

U 

c 

c 

c 


0320 

0321 


CALL  CEIR(INBA,360,CERT,IRN,JRN,NERB,5) 

PRINT  BINARY  DATA  IF  DESIRED 
IF(IPRSN.EQ.l)NRIT£(5,8450)(INBA{K),Ksl, 360) 

BCH  CODE  DECODER 
DECODE  5  BLOCK  OF  BCH  CODE 
JSP=0 

DO  9700  KT=1,5 

CALL  DECBCH(INBA,INB,KT,NES) 

IFCKT  .  EQ  .  1  .AND.  NES.EQ.4) JSP=1 
CONTINUE 

PRINT  INPUT  BINARY  DATA  IF  DESIRED 
IF(IPRSM.EQ.1)WRITE(5,8450)  (INBA(K)  ,K  =  1 ,360) 

SKIP  ONE  FRAME  SYNTHESIS  IF  BURST  ERRORStMORE  THAN  4  ERRORS)  ARE 
IN  THE  1ST  BLOCK(SIDE  INFORMATION) 

IF(JSP.EQ.l) GO  TO  8558 

DESERIALIZE  BINARY  DATA  INTO  DECIMAL  NUMBER  AND  DEQUANTIZE 

CALL  DSER(INBA,INB,QQL,QQH,IBIL,IBIH,ILMX,ILMN) 

IF ( IPRSW , EQ . 1 ) 

1  WRITE(IKB,8430)IBETA,I OOL/IQQH , (IDPL(K) ,  K  =  1 ,4) , (IDPH(J) ,J=1 ,4) 
DEOUANTIZE  SBAPC  PARAMETERS 

MPIT  DOES  NOT  REQUIRE  DEQUANTIZATION  SINCE  IBPT=6 

DEQUANTIZE  BETA 
IQI  =  1 

CALL  DEQTZCIQI r I BETA, BETA) 

IF(MPIT.EQ.0)BETA*0,0 
I F  C IPRSW . EQ . 1 ) 

1  WRITE(IKB,2048)IB8T,BETA,IBETA 
DEQUANTIZE  LONBAND  PARCOR  COEFS 
IQI*158 

CALL  DQTPCR (101 , PARLOW) 
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0322 

0323 

0324 

0325 


0  126 


0327 


0328 


0329 

0330 

0331 


0332 


0333 

0334 

0335 

0336 

0337 

0338 


0339 

0340 

0341 


IFCIPRSW.EQ.  1)  WRITE!  IKB,  8420)  (PARLOW(KK)  ,KK=1, 4) 

C  CONVERT  PARCOR  TO  FILTER  COEFFICIENTS 

C 

CALL  PARPRE(NLOW,PARLOM,ALOM) 

C 

C  DEQUANTIZE  HIGH  BAND  PARCOR  COEFS 

C 

101=314 

CALL  DQTPCRCIQI.PARUPP) 

C 

C  CONVERT  PARCOR  TO  FILTER  COEFFICIENTS 

C  i 

CALL  PARPRE(NUPP,PARUPP,AUPP) 

C  1 

C  DEQUANTIZE  ERROR  SIGNALS  OF  LOW  AND  HIGH  BANDS 

C 

CALL  ERSDQT(IBIL,EL,QQL,IBIH,EH,QQH) 

C 

C 

c  ppapppppppppppppppppp 

CP  p 

C  P  FOR  DEBUGGING  ONLYP 

CP  P 

C  PPPPPPPPPPPPPPPPPPPPP 

IFCIPRSW.NE.nGO  TO  8555 
C  PRINT  RECEIVED  DATA 

C 

WRITE(5,8410)ICOUNT,MPIT,IBIL,IBIH 

WRITE ( 5  #  8420)QQL,QQH , BETA , (PARLOWCKK) ,KK  =  1 ,4) , (PARUPP(N) ,N  =  1 ,4] 
WRITEC  5 , 8430 ) IQQL , IQQH , I BETA ,  (IDPL(KK),KK  =  1,4) , CIDPH(N) ,N  =  1 ,4) 

D  DO  8522  K=1 ,72 

D  WRITE(5,8333)K,EL(K),EHCK),NINCK) ,NIN(K+72) 

D8522  CONTINUE 

8555  CONTINUE 

C 
C 

C  SYNTHESIZE  LOW  BAND  OUTPUTS 

C**** 

00  3001  J=1,LTH 
SUN=0. 

DO  3000  K=1,NL0W 

TERN*- ALOW (K)* (CLOW (LTH+J-K) -BET A*CLOw ( LTH+ J-K-MP IT) ) 

3000  SUN=SUM+TERM 

3001  CLOWCLTH+J) =EL ( J) ♦SUW+BETA*CLOW (LTH+J-NPIT) 

C 

C  WRITE(IKB,3100) (CLOW (LTH+J) ,J=1 ,LTH) 

C3100  F0RMAT(1X,E12.5) 

C 

C 

C**** 

C  SYNTHESIZE  HIGH  BAND  OUTPUTS 

C***» 

DO  3301  Js l, LTH 
SUMsO. 

DO  3300  K=1 ,  NUPP 
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0342 

0343 

0344 


0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 


0362 


3300 

3301 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


TERM=-AUPP(K)*CUPPCLTH+J-K) 

SUM*SUM+TERM 

CUPP(LTH+J)*EH(J)+SUM 

WRITE (IKB, 3100) ( CUPP C LTH+J > ,J  =  1 ,LTH) 


ZERO  GUT  BUFFERS  AND  INSERT  DOWN-SAMPLED  VALUES 


0345 

8558 

DO  4001  1=1, LX, 2 

0346 

YYL(I+LX)=0. 

0347 

4001 

C 

YYH(I+LX)=0, 

0348 

C 

DO  4010  1=1, LTH 

0349 

YYL(LX  +  2*I )  =  2  «*CLOW ( I+LTH ) 

0350 

4010 

YYH(LX+2*I)=2. 4CUPPC I+LTH ) 

C 

C 

C 


4020 


4030 

C 

C 

c 

c 

c 

c 

c 

c**** 

c 

c***** 

c 

c 

c**** 

c 


QMF  FILTERING 

DO  4030  J=1,LX 
SUMsO. 

SUM1=0 . 

DO  4020  I=1,NFILT 
SUM1=SUM1*HUPP(I>*YYH(LX+J-IM) 
SUM=SUM  +  HLON(I>*YYL{LX+J-IM) 
TT=SUM-SUM1 

1FCTT.GE.2047. )TT*2047 . 
IF(TT.LE.-2047.)TT=-2047. 

XR(J)=TT 

NOUT(J)=TT 

♦  ♦♦  +  +  ♦•♦■•»■♦•♦•  END  RECEIVER  ♦♦♦♦♦♦♦♦♦■»• 


0363 

0364 


WRITE  OUT  THE  DATA 
CALL  TAPE2C2) 

COMPUTE  SIGNAL-TO -NOISE  RATIOS 

IF(ISNR  .EQ.DGOTO  4402 
KOUNT=KOUNTM 
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0365 

SNRNUMsO. 

0366 

SNRDENsO. 

0367 

DO  4100  1*1 , LX 

0368 

SNRNUMsSNRNUM+(XBUFCI+LX+l-NFILT) )**2 

0369 

4100 

SNRDEN=SNRDEN+(XBUF(I+LX*1-NFILT)-XR(I) )**2 

0370 

IF (SNRDEN  .EO.  0  , OR . SNRNUM  .EO.  O.JGOTO  4115 

0371 

SSNR*10.*ALOG10(8NRNUM/SNRDEN) 

0372 

GOTO  4120 

0373 

4115 

SSNR=0. 

0374 

WRITE ( IKB , 4 1 1 7 ) ICOUNT 

0375 

4117 

F0RMAT(1X,  'FRAME  NO.  *',  14 ,'  ENERGY  OF  INPUT  SIGNAL  =  0. 

0376 

4120 

XSNR=XSNR+SSNR 

0377 

CSNR=XSNR/FLOAT(KOUNT) 

0378 

WR ITE( IKB, 4 122) ICOUNT, SSNR,CSNR, (NEKB(L) ,L=1 ,6) 

0379 

4122 

FORMAT (IX, 'FR  •« ' , 14 ,4X , ' SNR* • , El  1 . 4 , ' DB '  , 

1 

C 

c 

3 X , ' CSNRs ' , El  1 .4, 3X , ' CH .  ERRS' ,613) 

c 

c ***** 

c 

THIS  SHIFTS  THE  DATA  FOR  NEXT  TIME 

c***** 

r 

0380 

L 

4402 

CONTINUE 

0381 

DO  4403  1*1 , LX 

0382 

XBUF(I)=XBUF(I+LX) 

0383 

YYL ( I ) *YYL ( I+LX ) 

0384 

4403 

C 

YYH(I)=YYH(I+LX) 

0385 

C 

DO  4404  J*1,LTH 

0386 

LO(J)=LO(LTH+J) 

0387 

UP(J)*UP(LTH+J) 

0388 

RNL(J)=RNL(LTH+J) 

0389 

RNH(J)=RNH(J+LTH) 

0390 

CLOW ( J ) =CLOW(J+LTH ) 

0391 

CUPP(J)*CUPP(J+LTH) 

0392 

4404 

c 

CONTINUE 

C 

CONTINUE  PROCESSING  IF  END  OF  TAPE  IS  NOT  READ 

c*** 

0393 

IFtNEND  .EQ.  0)GOTO  1000 

0394 

c 

GOTO  5000 

c 

c**»* 

c 

ERROR  DIAGNOSTICS 

c**** 

0395 

4900 

WRITE ( IKB , 4910 } 

0396 

4910 

FORMATC1X, 'ERROR  ENCOUNTERED  DURING  TAPE  READ'//) 

0397 

GOTO  70 

c 

c 

c 
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C 

WRITES  THE  END  OF 

FILE 

0398 

5000 

CONTINUE 

0399 

DO  5001  1*1, LX 

0400 

5001 

NOUT ( I ) =0 

0401 

DO  5002  1*1,32 

0402 

5002 

CALL  TAPE2C2) 

0403 

CALL  TAPE2 ( 5 ) 

0404 

WRITE(IKB,5109) 

0405 

5109 

FORMAT (IX, 'MISSION 

ACCOMPLISHED 

0406 

STOP 

0407 

END 

PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SC0DE1 

011762 

2553 

R*,I,CON,LCL 

SPDATA 

000056 

23 

R*,D,CDN,LCL 

SIDATA 

001334 

366 

RW,D,CON,LCL 

SVARS 

025664 

5594 

R W , D , CON , LCL 

STEMPS 

000006 

3 

rw,d,con,lcl 

MTAPEO 

001250 

340 

RW,D,OVR,GBL 

MTAPE1 

000012 

5 

RW , D , OVR , GBL 

MTAPE2 

000012 

5 

rw,d,ovr,gbl 

T8L 

003444 

914 

RW,D,OVR,GBL 

NSTBL 

000310 

100 

RW , D, OVR , GBL 

SBTA 

000030 

12 

RW,D,OVR,GBL 

SDT  A 

000030 

12 

RW , D , 0 VR , GBL 

SW 

000004 

2 

RW,D,OVR,GBL 

TOTAL  SPACE  ALLOCATED  *  046622 

9929 
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C 

C 

C 

C 


C 

99999999999999999999999999999999 

c 

8  8 

c 

9  SUBROUTINES  START  HERE  9 

c 

9  9 

c 

98999999999999999999999999999999 

c 

SUBROUTINE  NR2NAP.FTN( MODIFIED  FROM  SOLVE. FTN) 

c 

THIS  ROUTINE  CONVERTS  NORMALIZED  AUTOCORRELATION  COEFS 

c 

TO  NEGATIVE  PREDICTIVE  COEFS  4PARC0R  COEFS 

c 

THE  RESULTING  A‘S  SHOULD  BE  NEGATED  IF 

c 

c 

(1-SUM(A(I)*Z**(-I)))IS  USED  AS  THE  PREDICTION  POLYNOMIAL 

0001 

c 

c 

SUBROUTINE  NR2NAPC A , R , N , U , PARCOR ) 

0002 

DIMENSION  Rd) ,PARC0RC1) ,A(1) ,B(10) 

0003 

A(l)=-R(2) 

0004 

PARCORd)a-A(l) 

0005 

U=1.0fA(l)*R(2> 

0006 

DO  3  1=2, N 

0007 

N=R ( 1  + 1  ) 

0008 

L=I-1 

0009 

DO  1  M=1 ,L 

0010 

B(M)aA(I-M) 

0011 

1 

W=W+B(M)*R(M+1) 

0012 

XK=-W/U 

0013 

L=I-1 

0014 

DO  2  M  =  1,L 

0015 

2 

A(M)aA(M)+XK*B(M) 

0016 

A ( I ) °XK 

0017 

PARCOR ( I ) =“XK 

0018 

3 

U=U+XK*W 

0019 

RETURN 

0020 

END 

PROGRAM  SECTIONS 


NAME 

SIZE 

ATTRIBUTES 

SCODF1 

000452 

149 

RM ,  I , CON , LCL 

SIDATA 

000036 

15 

R  tf  ,  D  , CON , LCL 

SVARS 

000066 

27 

RW,D,CON,LCL 

STEMPS 

000006 

3 

PM, D, CON, LCL 

TOTAL  SPACE  ALLOCATED  *  000604  194 
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C 

C 

C  SUBROUTINE  PARPRE.FTN 

C  THIS  ROUTINE  CONVERTS  PARCOR  COEFS  TO  PREDICTION  COFFS 

C  THE  RESULTING  A'S  SHOULD  BE  NEGATED  IF 

C  (1-SUM(A(I)*Z**(-I))  IS  USED  AS  THE  PREDICTION  POLYNOMIAL 

C 


0001 

SUBROUTINE  PARPRE ( N , PARCOR , A ) 

0002 

DIMENSION  PARCOR(1),A(1),AP(10) 

0003 

A(l)s-PARCORCl) 

0004 

NN=N+1 

0005 

PARCOR (NN)=1.0-AC1)**2 

0006 

DO  120  1*2, N 

0007 

IM1=I-1 

0008 

DO  110  J=1,IM1 

0009 

110 

AP(J)sA(J)-PARCOR(I)*A(I-J) 

0010 

AP(I)=-PARCOR(I) 

0011 

PARCOR(NN)sPARCOR(NN)*(1.0-AP(I)**2) 

0012 

00  140  J*1,I 

0013 

140 

A(J)sAP(J) 

0014 

120 

CONTINUE 

C 

TYPE  997,<I,A(I),Isl ,N) 

C997 

FORM AT (IX, 'AC  1 ,12, ' )*  ',E15.8) 

0015 

RETURN 

0016 

END 

PROGRAM  SECTIONS 


NAME 

SIZE 

ATTRIBUTES 

SCODEl 

000372 

125 

RW  ,  I , CON , LCL 

SIDATA 

000024 

10 

RW  ,  D  , CON , LCL 

$  VARS 

000060 

24 

RW , D , CON , LCL 

stkmps 

000004 

2 

RW,D,CON,LCL 

TOTAL  SPACE  ALLOCATED  =  000502  161 


i 


! 
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C 

C 

C 

C 

C 

0001 

0002 

0003 

0004 

0005 


SUBROUTINE  QTPCRL 

QUANTIZE  PARAMETERS  OF  LON  BAND  PARCORS  IN  SBAPC 

SUBROUTINE  QTPCRL(PCRL) 

COMMON /TBL/QTBL  C 457 ) 

C0MN0N/SBTA/IBPT,IBBT,IBQL,IBQH,IBPL(4) ,IBPH(4) 
COMMON/SDTA/MPIT, IBETA, IQQL, IQQH, IDPLC4) , IDPH(4) 
DIMENSION  PCRL(l) 


C 

C 

PCRLC 1,2 

C 

PCRH (1,2 

C 

PCRLC  3,4 

c 

c 

QUANTIZE 

0006 

IQSsl58 

0007 

IQIsIQS 

0008 

DO  110  I 

0009 

IBTsIBPL 

0010 

CALL  QTZ 

0011 

IDPLCI )= 

0012 

IQS=IQS+ 

0013 

1FCIBPLC 

0014 

IFCIBPLC 

0015 

IQlalQS 

0016 

no 

CONTINUE 

0017 

RETURN 

0018 

END 

program 

SECTIONS 

NAME 

SIZE 

SCUUE 1 

000216 

71 

SIDATA 

000024 

10 

SVARS 

000012 

5 

STEMPS 

000002 

1 

TBL 

003444 

914 

SBTA 

000030 

12 

SUTA 

000030 

12 

)  NITH  5  BITS 
)  WITH  4  BITS 
),PCRH(3,4)  WITH  3  BITS 

PARCQR  IN  LOW  BAND 


=  1,4 
Cl) 

(IOI,IBT,PCRL(I) , IDP) 

IDP 

15 

I).G£«4)IQS=IQS+16 
I) ,GE.5)IQS=IQS+32 


ATTRIBUTES 

RW , I , CON , LCL 
R W , D , CON , LCL 
RW , D , CON , LCL 
R W , D , CON , LCL 
RW, D, OVR , GBL 
RW , D , OVR , GBL 
RW,D,0VR,GBL 


TOTAL  SPACE  ALLOCATED  =  004002  1025 

NO  FPP  INSTRUCTIONS  GENERATED 


E-21 


FORTRAN  IV-PLUS  V02-51E 
S8APC.FTN  /HR 


16:37:25  06-OCT-80 


PAGE  21 


SUBROUTINE  QTPCRH 

SUBROUTINE  TO  QUANTIZE  HIGH  BAND  PARCOR  IN  SBAPC 

SUBROUTINE  QTPCRH(PCRH) 

COMMON/TBL/QTBLC457) 

COMMON/SBTA/IBPT ,  1BBT , IBQL ,IBQH,IBPL(4) ,IBPH(4) 
C0MM0N/SDTA/MPIT,IBETA,IQQL,IQGH,IDPL(4),IDPH(4) 
DIMENSION  PCRH(l) 


C 

C 

r 

QUANTIZE  PARCOR 

IN  UPPER  BAND 

0006 

L 

IQS=314 

0007 

IQ1-1QS 

0008 

DQ  210  1=1,4 

0009 

IBT=IBPH ( I ) 

0010 

CALL  QTZ(IQI,IBT,PCRH(I) ,IDP) 

oon 

IDPH  Cl )  =  IDP 

0012 

IQS=IQS+15 

0013 

IF(IBPHCI) .GE.4)IQS=IQS+16 

0014 

IQI=IQS 

0015 

210 

CONTINUE 

0016 

RETURN 

0017 

END 

PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SCODEl 

000202 

65 

RW  ,  I , CON , LCL 

SIDATA 

000024 

10 

R W  ,  D , CON , LCL 

$  VARS 

000012 

5 

RW , D , CON , LCL 

STEMPS 

000002 

1 

RW,D,CON,LCL 

TBL 

003444 

914 

RW , D , OVR , GBL 

SBTA 

000030 

12 

RW,D,OVR, GBL 

SDT  A 

000030 

12 

RW ,D , OVR , GBL 

TOTAL  SPACE  ALLOCATED  *  003766 

1019 

NO  FPP  INSTRUCTIONS  GENERATED 
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C 

OTZ.FTN 

C 

C 

SUBROUTINE  TO  QUANTIZE  SIDE  INFORMATION  OF 

0001 

SUBROUTINE  QTZUQI  ,  IBT ,  XX ,  ID) 

0002 

CQMMON/TBL/QTBL(457) 

0003 

ID  =  0 

0004 

IF C IBT , LE . Q)GO  TO  20 

0005 

IQIT=2**IBT-1 

0006 

DO  10  JS1 t IQIT 

0007 

ID=J-1 

0008 

IFCXX.LT. QTBL(IQI+l))GO  TO  20 

0009 

IQI=IQI+2 

0010 

10 

CONTINUE 

0011 

ID=ID+1 

0012 

20 

XXsQTBL(IQI) 

0013 

RETURN 

0014  END 


PROGRAM  SECTIONS 

NAME  SIZE 

S  CODE  1  000154  54 

SVARS  000004  2 

T8L  003444  914 


ATTRIBUTES 

RW,I,CON,LCL 

RW,D,CON,LCL 

RW/D,OVR,GBL 


SBAPC  SYSTEM 


TOTAL  SPACE  ALLOCATED  *  003624  970 


E-23 
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SBAPC.FTN  /t*R 


C 

c 

c 

0001 

0002 

C 

C 

c 


DEQTZ.FTN 

OEOUANTIZE  SBAPC  PARAMETERS 
SUBROUTINE  DEQTZ ( IQ I , ID » XX) 
COMMON/TBL/QTBL(457) 

IOI : INPUT  TABLE  POINTER 

IDsOECIMAL  INPUT  VALUE 

XX : DEOUANTIZED  OUTPUT  VALUE 


0003 

0004 

0005 

0006 

IQ=IQI+2*ID 
XX=OTBL (10) 
RETURN 

END 

PROGRA 

M  SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

$ COO El 

SVARS 

TBL 

000036  15 

000002  1 

003444  914 

R*,I,CON,LCL 
RW , D*  CON / LCL 
RW,D,OVR,GBL 

TOTAL 

SPACE  ALLOCATED  =  003504 

930 

PAGE  23 


E -24 
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S6APC.FTN  /WR 


C 

ERSQTZ.FTN 

C 

SUBROUTINE  TO  QUANTIZE  ERROR  SIGNALS 

C 

DATE  7/31/80 

0001 

SUBROUTINE  ERSQTZ ( IQI , IBIT , X IN , XOUT , IDOT ) 

0002 

COMMON/TBL/QTBL<457) 

0003 

IFdBIT.GE. 2)101*101  +  1 

0004 

IF(IBIT.GE.3)IQI*IQI+3 

0005 

IF(IBIT.G£.4)IQI*IQI+7 

0006 

XOUT=ABS(XIN) 

0007 

IBTsIBIT-1 

0008 

IMK=2**IBT 

0009 

CALL  QTZ(IOI,IBT, XOUT, IDOT) 

0010 

IF (XIN.GE. 0.0) RETURN 

0011 

XOUT=-XOUT 

0012 

IDOT*IDOT+INK 

0013 

RETURN 

0014 

END 

PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SCODE1 

000200 

64 

RW ,  I , CON , LCL 

SIDATA 

000012 

5 

RW ,  D  ,  CON  ,  LCL 

SVARS 

000004 

2 

RW , D , CON , LCL 

T8L 

003444 

914 

RW , D ,OVR , GBL 

TOTAL  SPACE  ALLOCATED  *  003662  985 


16:37:51 
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FORTRAN  IV-PLUS  V02-51E 
S8APC.FTN  /HR 


C 

C 

C 

C 

C 


0001 

U002 

0003 

0004 

0005 


DQTPCR.FTN 

SUBROUTINE  DEQUANTIZE  PARCOR  PARAMETERS 
AUG.  4,  1980 

SUBROUTINE  DQTPCR C IQIP , PCR ) 

C0MMQN/TBL/QTBL(457) 

CQMMON/SBTA/IBPT,I BBT ,IBQL,IBQH,IBPL(4) ,IBPH(4) 
COMMON /SDTA/MPIT, I BETA , IQQL , IQQH , IDPL ( 4 ) , IDPH ( 4 ) 
DIMENSION  PCR ( 1 ) 


0006 

1QI=IQIP 

0007 

DO  10  1=1,4 

0008 

IFCIQIP.EQ.314)G0  TO  11 

0009 

IDP=IDPL(I ) 

0010 

CALL  DEOTZUQI 

,  IDP , PCR ( I ) ) 

0011 

I8IT=IBPL ( I ) 

0012 

GO  TO  12 

C 

DEQUANTIZE  FOR 

HIGH  BAND 

0013 

11 

CONTINUE 

0014 

IDP=IDPH ( I ) 

0015 

CALL  DEQTZCIQI 

,  IDP, PCR  CD) 

0016 

IBIT=IBPH ( I ) 

0017 

12 

CONTINUE 

0018 

101=101+15 

0019 

IF (IBIT.GE. 4)101=101+1 6 

0020 

IF(IBIT.GE. 5)101=101+32 

0021 

10 

CONTINUE 

0022 

RETURN 

0023 

END 

PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SCODE1 

000304 

98 

RH  ,  I , CON , LCL 

SIDATA 

000022 

9 

R W , D , CON , LCL 

$  VARS 

000010 

4 

RW,D,CON,LCL 

$  TEMPS 

000002 

1 

RH,D,CON,LCL 

TBL 

003444 

914 

RW,D,OVR,GBL 

SBTA 

000030 

12 

RH , D , OVR , GBL 

SOT  A 

000030 

12 

RW,D,OVR, GBL 

TOTAL  SPACE  ALLOCATED  =  004064  1050 

fPP  INSTRUCTIONS  GENERATED 
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SriAPC . FTn  /WR 


C 

r 

ERSDQT.FTN 

V* 

c 

ERROR  SIGNALS  DEQUANTIZER 

c 

c 

AUG.  4,  1980 

0001 

SUBROUTINE  ERSDQT ( IBIL , EL , QQL , I BIH , EH , QQH) 

0002 

COMMON/MT APEO/NIN (170) , NOUT  C 1 70 ) 

0003 

COMMON/TBL/QTBL(457) 

0004 

COMMON/SBTA/IBPT, IBBT , IBQL , IBQH , I8PL (4 ) , 1BPH ( 4 ) 

0005 

COMMON/SDTA/MPIT, IBETA , IQQL , IQQH , IDPL ( 4 ) , IUPH ( 4 ) 

0006 

DIMENSION  EL(1),EH(1) 

0007 

DATA  SQRT3,IRN,JRN/1. 73201, 0,0/ 

0008 

IQL=406 

0009 

IF(IBIL.GE.2)IQL=IQL+1 

0010 

IF(IB1L.G£.3) IQL=IQL+ 3 

0011 

IF(IBIL.GE.4)ICL*IGL+7 

0012 

ISGL=2**(IBIL-1) 

0013 

IQH=432 

0014 

IF(IBIH.GE.2)IQH=IQH+1 

0015 

IF(IBIH.GE.3)IQH«IQH+3 

0016 

IF (IBIH.GE.4) IQH»IQH+7 

0017 

ISGH=2**(IBIH-1) 

0018 

c 

c 

DO  10  1=1,72 

DEQUANTIZE  FOR  LOW  BAND 

0019 

IDL=NIN ( I ) 

0020 

IF(IDL.GE.ISGL) IDL=IDL-ISGL 

0021 

IF ( IBIL.EQ.O)GO  TO  20 

0022 

CALL  DEQTZ(IQL,IOL,ELCI)) 

0023 

EL(I)=EL(I)*QQL 

0024 

IFININ(I) . GE. ISGL) EL (I)=*EL(I) 

0025 

GO  TO  30 

0026 

20 

c 

CONTINUE 

c 

c 

ADD  RANDOM  NUMBER  FOR  ERROR  SIGNALS 

0027 

CALL  RANDU(IRN,JRN,YQR) 

0028 

YQR=CYQR+YQR-1.0)*SQRT3 

0029 

EL(I)=YQR*SQRT3 

0030 

30 

CONTINUE 

0031 

IDH*NIN (1+72) 

0032 

IFCIDH.GE.ISGH)IDH=IDH-ISGH 

0033 

IF(IBIH.EQ.0)GO  TO  40 

0034 

CALL  DEQTZ(IQH,IDH,EH(I)  ) 

0035 

EH(I)=EH(I)*QQH 

0036 

IFCNINCI+72) ,GE.ISGH)EH(I)=-EH(I) 

0037 

GO  TO  10 

0038 

40 

CONTINUE 

0039 

CALL  RANDU(IRN,JRN,YQR) 

0040 

YOR=(YQR+YQR-1.0)*SQRT3 

0041 

EH(I)=YQR*SQRT3 

0042 

10 

CONTINUE 

0043 

RETURN 

0044 

END 

16:38:02 
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FORTRAN  IV-PLUS  V02-51E 
SBAPC.FTN  / W  R 

PROGRAM  SECTIONS 

NAME  SIZE  ATTRIBUTES 


SCODEl 

000744 

242 

RW , I , CON , LCL 

SIDATA 

000054 

22 

RW , D  r  CON , LCL 

SVARS 

000032 

13 

R  W ,  D , CON , LCL 

STEMPS 

000004 

2 

rw,d,con,lcl 

MTAPEO 

001250 

340 

R W , D , OVR , GBL 

TBL 

003444 

914 

rw,d,ovr,gbl 

SBTA 

000030 

12 

RN,D,OVR, GBL 

SDTA 

000030 

12 

RW,D,OVR,GBL 

TOTAL  SPACE  ALLOCATED  =  006052  1557 

SBAPC,LP:=SBAPC/NOTR 
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TAPE2. 

FTN 

/HR 

C 

TAPE2.FTN 

0001 

SUBROUTINE  TAPE2CIQ) 

0002 

IMPLICIT  INTEGER(A-Z) 

0003 

C0MMON/MTAPE0/NIN( 170)  ;  J!JT(  170) 

0004 

COMMON/MTAPE1/NSKIP,IST,nTOTI,NTUPS,NTOTO 

0005 

C0MM0N/MTAPE2/NEND,NERR,NFILE,NINS,N0UTS 

0006 

COMMON/MTAP£3/NBF(1324) ,NBUF(1324) 

0007 

C0MM0N/MTAPE4/LST, I BEG 

0008 

DIMENSION  ICARDC64) 

0009 

GO  TO  (700,800,900,999,1000,1001,1002,1003) 

c 

c 

INPUT  DATA 

0010 

700 

IST=IST+NTUPS 

0011 

IF ( 1 324.GE .1ST)  GO  TO  200 

0012 

100 

IST=IST-1024 

0013 

NSKIP=NSKIP+1 

0014 

2  00 

K0VER=LST+NT0TI-1325 

0015 

IF ( KOVER . GT . 0 )  GO  TO  305 

0016 

DO  5000  1*1, NTOTI 

0017 

5000 

nIN(I)=NBF(LST+I-1) 

0018 

LSTsLST+NTUPS 

0019 

RETURN 

0020 

305 

IPEP=LST-1024 

0021 

DO  5001  1*1 , 300 

0022 

5001 

NBF(IPEP+I-1)*NBF(LST*I-1 ) 

0023 

LST*IPEP 

0024 

IF(NINS.EQ.O)  GO  TO  2100 

C 

DISK  INPUT 

0025 

DO  5010  1*1,16 

0026 

READ(2,END*2001,ERR*6000) (ICARDCJ) , J=l,64 

0027 

K=64*(I-l)+300 

0028 

DO  5010  J*1 , 64 

0029 

5010 

NBF(K+J)*ICARD(J> 

0030 

IF (NERR.NE.O)  GO  TO  6000 

0031 

GO  TO  200 

0032 

2001 

NEND=1 

0033 

GO  TO  200 

0034 

2100 

CALL  TIN(NBF(301 ) ,NEND,NERR) 

0035 

p 

GO  TO  200 

0036 

c 

800 

CONTINUE 

C 

OUTPUT  DATA 

0037 

DO  5005  1*1 , NTOTO 

0038 

5005 

NBUF(IBEG+I-1)=N0UT(I) 

0039 

I0EG=IBEG+NTOTO 

0040 

K0N=1025-IBEG 

0041 

IF(KON.GT.O)  GO  TO  90 

0042 

IF(NOUTS.EQ.O)  GO  TO  2002 

0043 

DO  6010  1*1,16 

0044 

K*64*(I-1) 

0045 

DO  6011  J*1 , 64 

0046 

6011 

ICARD(J)*NBUF(K+J) 

0047 

6010 

WRIT£(3)(ICARD(J),J*1 ,64) 

0048 

GO  TO  2003 

0049 

2002 

CALL  TOUT (NBUF,N ERR) 

0050 

2003 

LRESIDs-KON 

E-29 
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TAPE2 

.  FTN 

/  WR 

0051 

DO  5006  I=1,LRESID 

0052 

5006 

NBUF(I)=NBUF(1024+I> 

0053 

lBEG=LRESID'f  1 

0054 

90 

c 

RETURN 

V. 

C 

INITIALIZE 

0055 

900 

IF( (NINS+NOUTS) , LE.  1 )  CALL  ATTACH 

0056 

IF(NINS.EQ.O)  CALL  RWNDO 

0057 

IF(NOUTS.EO.O)  CALL  RMND1 

0056 

IF(NFILE.EQ.O)  GO  TO  995 

0059 

IF(NINS.EQ.O)  CALL  FSRCH ( NFILE , NFRR ] 

0060 

IF(NERR.NE.O)  GO  TO  6000 

0061 

913 

DO  912  J=1,NSKIP 

0062 

IF(NINS.EQ.O)  GO  TO  3000 

C 

DISK  INPUT 

0063 

DO  5011  1=1,16 

0064 

R£AD(2,END  =  3001  »ERR  =  6000) (ICARD(JJ)  , 

0065 

K  =  64* ( I  —  1 ) +300 

0066 

DO  5011  J J=1 , 64 

0067 

5011 

NBF(K+JJ)=ICARD(JJ) 

0068 

GO  TO  912 

0069 

3001 

NEND= 1 

0070 

GO  TO  912 

0071 

3000 

CALL  TIN(NBF(301),NEND,NERR) 

0072 

IF(NERR.NE.O)  GO  TO  6000 

0073 

912 

CONTINUE 

0074 

GO  TO  995 

0075 

999 

CONTINUE 

0076 

I BEG=1 

0077 

CALL  EOFSHCNERR) 

0078 

RETURN 

0079 

995 

CONTINUE 

0080 

IBEG= 1 

0081 

LST=IST+300 

0082 

IST=IST-NTUPS 

0083 

RETURN 

C 

END  OF  FILE 

0084 

1000 

IF(NOUTS.EQ.O)  GO  TO  2010 

0085 

CALL  CLOSE ( 3 ) 

0086 

GO  TO  2011 

0087 

2010 

CALL  EOFW(NERR) 

0088 

2011 

I B£G=1 

0089 

RETURN 

0090 

1001 

NEND=0 

0091 

IF(NINS.EO.O)  GO  TO  4020 

0092 

REMIND  2 

0093 

GO  TO  4011 

0094 

4020 

CALL  RWNDO 

0095 

NERRaO 

009b 

CALL  FSRCH(NFILE,NERR) 

0097 

IF(NERR.NE.O)  GO  TO  6000 

0098 

4011 

DO  950  J= 1 , NSK I P 

0099 

IF(NINS.EQ.O)  GO  TO  4000 

C 

DISK  INPUT 

0100 

DO  5012  1=1,16 

0101 

READ(2,END=4001 , ERR*6000 ) ( ICARD C K ) ,K 

16:38:23 
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FORTRAN 

I V-PLUS 

V02-51E  16:38:23 

TAPE2.FTN 

/NR 

0102 

K=64*(I-1)*300 

0103 

DO  5012  JJ*1,64 

0104 

5012 

NBF(K+JJ)=ICARD(JJ) 

0105 

GO  TO  950 

0106 

4001 

NEND=1 

0107 

GO  TO  4002 

0108 

4000 

CALL  TIN(NBF(301) »NEND,NERR) 

0109 

IF(NERR.NE.O)  GO  TO  6000 

0110 

4002 

IF (NEND.NE. 0)  GO  TO  2000 

0111 

950 

CONTINUE 

0112 

LST=IST+300 

0113 

IST=IST-NTUPS 

0114 

RETURN 

0115 

2000 

NERR=16384 

0116 

RETURN 

0117 

1002 

IF(NINS.EQ.1)CALL  CL0SE(2) 

0118 

NENDsO 

0119 

RETURN 

0120 

1003 

CALL  INFO 

0121 

RETURN 

0122 

bOOO 

TYPE  6001 

0123 

6001 

FORMATUX,  'INPUT  FILE  ERROR' 

0124 

NERR= 1 

0125 

RETURN 

0126 

END 

PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SCnoEl 

002400 

640 

RW,I,CDN,LCL 

S  PD AT  A 

000032 

13 

RN,D,CON,LCL 

SIDATA 

000070 

28 

RW,D,CON,LCL 

SVARS 

000220 

72 

RW,D,CON,LCL 

STB.MPS 

000004 

2 

R  W  #  D  , CON , LCL 

MTAPEO 

001250 

340 

RW , D , OVR , GBL 

MTAPE1 

000012 

5 

RW , D , OVR , GBL 

htape2 

000012 

5 

RW, D, OVR , GBL 

MTAPF.3 

012260 

2648 

RW , D , OVR , GBL 

MTAPfc  4 

000004 

2 

RW ,  D , OVR , GBL 

TOTAL  SPACE  ALLOCATED  =  016526  3755 


NO  EPP  INSTRUCTIONS  GENERATED 
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TAPE2.FTN  /WR 


C 

C 

C 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

001  1 

0012 

0013 

0014 

11 

0015 

100 

001b 

0017 

0018 

10 

0019 

0020 

0021 

1 

0022 

0023 

0024 

12 

0025 

101 

0026 

0027 

0028 

20 

0029 

0030 

0031 

2 

0032 

PROGRAM  FSIO.FTN  TO  MOVE  MAG  TAPES 

AND  WRITE  SPEECH  FOR  REAL-TIME  I/O  USING  OIO 

SUBROUTINE  ATTACH 
IMPLICIT  INTEGER(A-Z) 

COMMON/MTAPE2/NEND,NERR,NF1LE,NINS,NOUTS 
COMMON/MTAPE5/MASK,ISW(2) , IOATT , IOSUC , IEALN, IORWD, 

IOWLB, IEVER,IOSPF,IEEOF,IOEOF,IORLB,MTOC6) ,MT1 (6) ,DSW 
DATA  IOATT, IOSUC, IEALN/0001400 , 1 ,-34/ 

DATA  IOR WD, IOWLB, I EVER, IOSPF , IORLB/02400 , 0400, -4, 02 440, 0100< 
DATA  IOSPF, I EEOF,IOEOF/O2440,-1 0,03000/ 

DATA  MASK/0377/ 

DATA  MTO/O, 2048, 0,0, 0,0/ 

DATA  MT1/0, 2048, 0,0, 0,0/ 

IF(NINS.NE.O)  GO  TO  1 
CALL  ASNLUNC2, ' MT ' ,0,DSW) 

IF ( US W . EQ . 1 ) GO  TO  10 
WR ITE ( 5 , 100) 

FQRMATC1X, *MTO:  ATTACH  UNSUCCESSFUL'/) 

NERR=1 

RETURN 

CALL  WT0I0(I0ATT,2, 1 , 0 , ISW , 0 , DSW ) 

IF(I0SUC.EQ.IAND(MASK,ISW(1 ) ) ) GO  TO  1 
IF(IAND(IEALN,MASK).NE.IAND(MASK,ISW(1)))G0  TO  11 
IF(NOUTS.NE.O)  GO  TO  2 
CALL  ASNLUN(3, 'MT* , 1 ,DSW) 

IFCDSw.EQ.l)  GO  TO  20 
WRITE (5,101) 

FORMAT (IX, ' MT1 S  ATTACH  UNSUCCESSFUL'/) 

NEHR=1 

RETURN 

CALL  WTQI0(I0ATT,3, l , 0 , ISW , 0 , DSW) 

IFCIOSUC. EQ • IANDfMASK , ISW  ( 1 ) ) )G0  TO  2 
IFCIAND(IEALN,MASK).NE.IAND(MASK,ISW(l)))GO  TO  12 
RETURN 
END 


PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SCODE1 

000262 

89 

RW , I , CON , LCL 

SPDATA 

000024 

10 

RW,D,CON,LCL 

S 1  DAT  A 

000160 

56 

RW , D , CON , LCL 

MTAPF2 

000012 

5 

RW , D , OVR , GBL 

MTAPE5 

000064 

26 

RW , D, OVR , GBL 

TOTAL  SPACE  ALLOCATED  =  000564  186 

NO  FPP  INSTRUCTIONS  GENERATED 


E-3* 


'"V" 

.  -  —  —  i —  • 


*m  iwwif 


FORTRAN  IV-PLUS  V02-51E  16*39:14  06-OCT-80  PAGE  b 

TAPE2.FTN 

C 

0001 
000? 

0003 
0004 

1 

0005 
00  Oh 
0007 

0008  902 

0009 

0010  1 

0011 


PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SCODE1 

000062 

25 

RW,I,CON,LCL 

SPDATA 

000014 

6 

RW,D,CON,LCL 

SIDATA 

000036 

15 

RW ,  D , CON , LCL 

MTAPE2 

000012 

5 

RW , D , OVR , GBL 

MTAPE5 

000064 

26 

RW , D , OVR , GBL 

TUTAL  SPACE  ALLOCATED  =  000232  77 

00  FPP  INSTRUCTIONS  GENERATED 


/MR 


SUBROUTINE  RWNDO 
IMPLICIT  INTEGERCA-Z) 

COMMON/MTAPE2/NEND,NERR,NFILE,NINS,NOUTS 
COMMON/MTAPE5/MASK,ISW(2) , IOATT , IOSUC , IEALN , IORWD , 
IOMLB,IEVER,IOSPF,IEFOF, IOEOF ,IORLB,MTO(6) , MT1 (6) ,  DSW 
CALL  WTQIO(IORWD,2,1,0,ISM,0,DSW) 
IF(I0SUC.E0.IANDCMASK,ISWC1)))G0  TO  1 
WR1TE(5,902) 

FORMAT! IX, 'MTOt  BUSY'/) 

NERR=1 

RETURN 

END 


E-33 
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TAPE2.FTN  /WR 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009  902 

0010  1 

0011 


SUBROUTINE  RWND1 
IMPLICIT  INTEGER ( A-Z) 

C0MM0N/MTAPE2/NEND,NERR,NFILE,NINS,N0UTS 
COMMON/MTAPE5/MASK,IS*(2) , IOATT , IOSUC , IEALN , IORWD , 
IOWLB,IEVER,IOSPF, IEEOF , IOEOF , IQRLB , MTQ C 6 ) ,MTi (6) ,DS* 
CALL  WTOIO(IORWD,3,l , 0 , ISW , 0 , DSW) 
IF(10SUC.£Q.IAND(MASK,ISM(1)))G0  TO  1 
MRITE(Sf 902) 

NERR=1 

FORMAT  C IX , ' MT1 :  BUSY1/) 

RETURN 

END 


PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SCODfc'l 

000062 

25 

RW, I, CON, LCL 

SPDATA 

000014 

6 

R  W  ,  D  , CON , LCL 

S1DATA 

000036 

15 

RW  ,  D , CON , LCL 

MTAPE2 

000012 

5 

RW ,D,OVR,GBL 

MTAPE5 

000064 

26 

R  itf  ,  D  , OVR ,  GBL 

TOTAL  SPACE  ALLOCATED  a  000232  77 

NO  FPP  INSTRUCTIONS  GENERATED 
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FORTRAN  IV-PLUS  V02-51E 
TAPE2.FTN  /NR 


0001 

0002 

0003 

0004 
0005 
0006 
0007 
0008 
0009 
001  0 

0011  1 
0012 


SUBROUTINE  TIN(BUF,NEND,NERR) 

IMPLICIT  INTEGERCA-Z) 

COMHON/MTAPE5/MASK,ISN(2),IQATT,IOSUC,IEALN,IQRnD, 
IO*LB,IEVER,IOSPF,IEEOF,IOEOF,IORLB,MTO(6)  ,MT1  (6)  ,DSrf 
NEND=0 
NERH=0 

CALL  GETADR(MTO,BUF) 

CALL  WTQI0(I0RLB,2, 1 , 0 , ISW , MTO , DSN ) 

1F(I0SUC.EQ.IAND(MASK,ISW(1))}G0  TO  1 

IF(IAND(IEE0F,MASK).EQ.IAND(MASK,IS*(1)))NEND=1 

IF(IAND(IEVER,MASK) . EQ . I AND( MASK , ISM(l) ) )NERR=1 

RETURN 

END 


PROGRAM  SECTIONS 


NAME 

SIZE 

ATTRIBUTES 

SCODE1 

000  1  56 

55 

rw,i,con,lcl 

SPDATA 

000014 

6 

rw,d,con,lcl 

SiDATA 

000026 

11 

RM ,  D , CON , LCL 

MT APES 

000064 

26 

RW,D,OVR,GBL 

TOTAL  SPACE  ALLOCATED  =  000304  98 

NO  FPP  INSTRUCTIONS  GENERATED 


FORTRAN 

IV-PLUS 

V02-51E  16:39:32  06-OCT-80  PAGE  8 

TAPE2.FTN 

/NR 

0001 

C 

SUBROUTINE  TOUT ( NBUF , NERR ) 

0002 

IMPLICIT  INTEGER ( A-Z) 

0003 

1 

COMMON/MTAPE5/MASK,ISW(2) , IOATT , IOSUC , IEALN.IQRWD, 
IOWLB,IEVER,IOSPF,IEEOF,IOEOF,IORLB,MTO(6) ,MT1(6) ,DSW 

0004 

NERR=0 

0005 

CALL  GETADRCMT1  ,NBUF) 

0006 

CALL  KTQIO(IOMLB,3,l , 0 , ISM , MT 1 , DSW ) 

0007 

IF (IOSUC. EQ.IAND(MASKrISN(l)))GO  TO  1 

0008 

IF(IAND(IEVER, MASK ) . EO. IAND ( MASK ,ISN(1)))NERR=1 

0009 

1 

RETURN 

0010 

END 

PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SCODE1 

000110 

36 

RW , I , CON , LCL 

SPDATA 

000014 

6 

R W , D , CON , LCL 

SIDATA 

000026 

11 

R W , D , CON , LCL 

MTAPE5 

000064 

26 

RW,D,OVR,GBL 

TOTAL  SPACE  ALLOCATED  =  000236  79 


MO  FPP  INSTRUCTIONS  GENERATED 


16:39:38 


06-OCT-80 


PAGE  9 


FORTRAN  IV-PLUS  V02-51E 
TAPE2.FTN  /NR 


OOOl 

0002 

0003 

0004 


SUBROUTINE  FSRCH ( NFI LE , NERR ) 

IMPLICIT  INTEGER  (A-Z) 

COMMON/NTAPE3/NBFU324)  .NBUFC1324) 

COMMQN/NTAPE5/NASK,ISW(2) , IOATT , IOSUC , IEALN , IOR WD  , 


1 

iowlb,iever,iospf,ieeof,ioeof,iorlb 

0005 

NERR=0 

0006 

FILE=NFILE-1 

0007 

IF(FILE.LE.O)  RETURN 

0008 

DO  1  1=1, FILE 

0009 

CALL  GETADRCMTO 

, NBF ( 301 } ) 

0010 

CALL  WTQIO( IORLB ,2,1,0,ISW,MT0,DSW) 

0011 

IF(I0SUC.EQ.IAND(MASK,ISW(1)) ) GOTO 

0012 

WRITE(5,100)NFILE 

0013 

100 

FORMAT ( IX » ' FILE 

' , 14 ,  •  NOT  FOUND*/) 

0014 

NERR=1 

0015 

RETURN 

0016 

2 

MTO ( 1 ) =1 

0017 

1 

CALL  WTQIQ(IOSPF,2,i,0,ISW,MT0,DSW) 

0018 

RETURN 

0019 

END 

PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SC0DE1 

000202 

65 

RW, I ,CON,LCL 

SPDATA 

000014 

6 

RW ,D,CON,LCL 

SIDATA 

000076 

31 

RN , D , CON , LCL 

SVARS 

000004 

2 

RW , D , CON , LCL 

STEMPS 

000002 

1 

RW,D,CON,LCL 

MTAPF3 

012260 

2648 

RW,D,OVR, GBL 

MTAPE5 

000064 

26 

RW,D,OVR,GBL 

TOTAL  SPACE  ALLOCATED  =  012666  2779 

NO  FPP  INSTRUCTIONS  GENERATED 


FORTH AN  IV-PLUS  V02-51E 
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0005 

0006 

0007 

0009 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 


SUBROUTINE  EOFSH(NERR) 

IMPLICIT  INTEGER (A-Z) 

C0MM0N/MTAPE3/NBFC1324) ,NBUF(1324) 

C0MM0N/MTAPE5/MASK  ,  ISW ( 2 )  ,  10  ATT ,  IOSUC  ,IEALN,I0KWD, 
IOWLB,IEVER,IOSPF, IEEOF , IOEOF ,IORLB,MTOC6) , MT1 ( 6 ) ,  DSW 
NERRaO 

CALL  GETADRCMT1C1)  ,NBUFC1)  ) 

CALL  WTQIOCIORLB,  3,1 , 0 , ISW , MT1 , DSW ) 
IF(I0SUC.EQ.IAND(MASK,ISW(1)) ) GO  TO  1 
IF(IAND(IEE0F,MASK).EQ.IAND(MASK,I5W(1))) GO  TO  2 
NERRsl 

WRITE (5,1000)ISW(1) 

FORMAT ( IX ,  ' FILE  SEARCH  ERROR*  09/) 

RETURN 

CALL  GETADR (MT1 (1),NBUF(1)) 

CALL  WTQIO(IORLB,3,1 ,0, ISW,MT1,DSW) 

IFCIOSUC.EO.IAND(MASK,ISW(1)))GO  TO  1 

IF( IANDCIEEOF , MASK ) .EQ.IAND(MASK,ISW( 1) ) )  GO  TO  3 

NERR=1 

RETURN 


0020 

3 

MT1 (1 )s-l 

0021 

CALL  W TO IOC IOSPF ,3, 1,0, ISW, MT1, DSW) 

0022 

RETURN 

0023 

END 

PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SC0DE1 

000254 

86 

RW ,  I , CON , LCL 

SPDATA 

000014 

6 

RW ,  D , CON , LCL 

SIDATA 

000076 

31 

RW , D , CON , LCL 

MTAPE3 

012260 

2648 

RW ,  D , OVR , GBL 

MTAPEb 

000064 

26 

RW , D , OVR , GBL 

TOTAL  SPACE  ALLOCATED  =  012732  2797 

NO  FPP  INSTRUCTIONS  GENERATED 


E-38 


FORTRAN 

IV 

-PLUS 

V02-51E 

16:39156  06-OCT-80 

TAPE2.FTN 

/NR 

0001 

C 

SUBROUTINE 

EOFW(NERR) 

0002 

IMPLICIT  INTEGER(A-Z) 

0003 

COMMON /MT APES/ MASK , ISW ( 2 ) , IOATT,IOSUC,IEALN 

1 

IORLB , IEVER 

, IOSPF , IEEOF , IOEOF , IORLB , MTO ( 6 )  , 

0004 

NERRaO 

0005 

DO  1  1=1,2 

0006 

1 

CALL  WTQIO(IOEOF,3,1,0,ISM(1)) 

0007 

IF(IOSUC.EQ 

.IAND(MASK,ISW(1)))G0  TO  2 

0006 

NERRal 

oooo 

RETURN 

0010 

2 

MT1(1)=-1 

0011 

CALL  WTQIO(IOSPr,3,l,0,ISW,MTl,DSW) 

0012 

IF ( IOSUC . EU 

.IAND(MASK,ISW(1) )}RETURN 

0013 

NERRal 

0014 

RETURN 

0015 

END 

PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SCODE1 

000152 

53 

RW,I,CON,LCL 

SPDATA 

000014 

6 

R«,D,CON,LCL 

5IDATA 

000034 

14 

R W , D , CON , LCL 

SVARS 

000002 

1 

RW ,D,CON,LCL 

MTAPE5 

000064 

26 

RW ,  D , OVR , GBL 

PAGE  11 


TOTAL  SPACE  ALLOCATED  a  000310  100 

NO  FPP  INSTRUCTIONS  GENERATED 
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UNCLASSIFIED 
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w 
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E 


C 

SUBROUTINE  INFO.FTN 

0001 

V. 

SUBROUTINE  INFO 

0002 

IMPLICIT  INTEGER! A-Z) 

0003 

COMMON /MTAPEO/NI N  C  256 ) , NOUTC  256) 

0004 

COMMON /MT APE 1/NSK IP , 1ST , NTOTI , NTUPS, NTOTO 

0005 

C0MM0N/MTAPE2/NEND,NERR,NFILE,NINS,N0UTS 

0006 

C0MM0N/MTAPE3/NBF (1 324 ),NBUF( 1324) 

0007 

LOGICAL* 1  Y , ANS 

0008 

LOGICAL* 1  EXTIN , EXTOUT, APPEND 

0009 

DIMENSION  EXTIN(3) ,EXT0UT(3) 

0010 

DATA  EXTIN/ ' I ' , '  N  * , '  P '  / 

0011 

DATA  EXTOUT/  'O'/US'T'/ 

0012 

DATA  Y/'Y'/ 

0013 

DATA  NEND,NERR,NFILE/0,0,0/ 

0014 

c 

DATA  NSKIP , IST/1 , 1/ 

v> 

c 

c 

GET  I/O  INFORMATION  FOR  SPEECH  HANDLER 

0015 

APPEND*. FALSE. 

0016 

TYPE  1 

0017 

l 

FORMAT ( 1HS , 'IS  THE  INPUT  ON  MAG.  TAPE?  ') 

0018 

READ!  5 ,2) ANS 

0019 

2 

FORMAT ( A1 ) 

0020 

IF(ANS.NE.Y ) NINS* 1 

0021 

TYPE  3 

0022 

3 

FORMAT! 1HS' IS  THE  OUTPUT  GOING  TO  MAG  TAPE?  ') 

0023 

READ  (5,2)  ANS 

0024 

IF(ANS.NE.Y)  N0UTS=1 

0025 

IF(NOUTS.NE.O)  GO  TO  5 

0026 

TYPE  4 

0027 

4 

F0RMAT(1H$, 'APPEND  DATA?  ') 

0028 

READ  (5,2)  ANS 

0029 

IF(ANS.EQ.Y)  APPENDS. TRUE. 

0030 

5 

IF(NOUTS.EQ.O)  GO  TO  151 

C 

RSXU  SUPPORTED  FILE 

0031 

TYPE  150 

0032 

150 

FOPMATdHS, 'OUTPUT  FILE  NAMEs  ') 

0033 

r 

CALL  FILEN(3, EXTOUT) 

c 

n 

BEGINNING  OF  INPUT 

0034 

151 

IF(NINS.NE.O)  GO  TO  155 

0035 

TYPE  100 

0036 

100 

FORMAT ( 1HS ' MT  FILE  N0.s(I3)  ') 

0037 

READ(5, 101 )NFILE 

0038 

101 

F0RMAT(I3) 

0039 

GO  TO  14 

0040 

155 

TYPE  13 

0041 

13 

FORMATdHS, 'INPUT  FILE  NAME*  •) 

0042 

CALL  FILEN(2, EXTIN) 

0043 

NFILEsl 

0044 

14 

CALL  TAPE2(3) 

0045 

IF(NERR.NE.O)  RETURN 

0046 

IF(APPENO)CALL  TAPE2(4) 

0047 

RETURN 

E-40 


16*40:03 
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FORTRAN  IV-PLUS  V02-51E 
TAPE2.FTN  /WR 

0048  END 


PROGRAM 

SECTIONS 

NAME 

SIZE 

SCODE1 

000470 

156 

SPDATA 

000014 

6 

SIDATA 

000270 

92 

SVARS 

000012 

5 

MTAPEO 

002000 

512 

MTAPE1 

000012 

5 

MTAPE2 

000012 

5 

MTAPE3 

012260 

2648 

06-OCT-80 


ATTRIBUTES 

RW » I , CON , LCL 
RW ,  D , CON , LCL 
RW,D,CON,LCL 
RW,D,CON,LCL 
RW,D,OVR,GBL 
RW,D,OVR,GBL 
RW , D  f  OVR ,  GBL 
RW,D,OVR,GBL 


TOTAL  SPACE  ALLOCATED  =  015312  3429 

NO  FPP  INSTRUCTIONS  GENERATED 
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16:40:20 
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FORTRAN  1V-PLUS  V02-51E 
TAPE2.FTN  /MR 


0001 

C 

SUBROUTINE  FILEN ( UNIT , EXT ) 

C 

C 

THIS  SUBROUTINE  ACCEPTS  THE  AME  OF  THE  INPUT  OR  OUTPUT  FILE 

C 

FORM  THE  TTY  DEVICE  5 

C 

DEFAULT  DEVICE 

C 

UNLESS  SPECIFIED  IN  INPUT  STRING 

C 

UNIT=UNIT  NUMBER 

c 

EXT  *  LOGICAL*i  BUFFER  OF  EXTENSION 

0002 

c 

IMPLICIT  INTEGER! A-Z) 

0003 

LOGICAL* 1  I NSTR , DOT , BLNK  ,  EXT 

0004 

DIMENSION  INSTR ( 40 ) 

0005 

DIMENSION  EXT(3) 

w 

0006 

DATA  BLNK, DOT/*  ','.'/ 

L 

c 

INPUT  FILE 

0007 

152 

READ  (5,99) (INSTR(I) ,1*1 ,403 

0008 

99 

FORMAT (40A1 ) 

C 

CHECK  FOR  END  OF  LINE 

0009 

DO  1600  1*40, 1,-1 

■ 

0010 

J*I 

0011 

1600 

IF ( INSTR ( I ) , NE . BLNKJGO  TO  1601 

0012 

TYPE  151 

0013 

151 

FORMAT ( 1 H$ , •>' ) 

0014 

GO  TO  152 

0015 

1601 

DO  1602  1  =  1,  J 

0016 

C 

IFdNSTR(I) . NE.BLNK)  GO  TO  1602 

- 

C 

C 

BLANK  DISCOVERED-COLLAPSE  LINE  BY  ONE  AND  DECREASE  CHARACTER 

CO  U 

4 

0017 

c 

DO  1603  K=I , J-l 

0018 

1603 

INSTR (K)=INSTR(K4l ) 

0019 

INSTR (J)*BLNK 

- 

0020 

JaJ-1 

0021 

GO  TO  1601 

-  • 

0022 

1602 

CONTINUE 

0023 

DO  103  1*1, J 

0024 

103 

IF (INSTR (I ) . EQ.DOT)  GO  TO  25 

0025 

INSTR  (v)*l)=DOT 

0026 

INSTR(J+2)*EXT(1) 

,  . 

0027 

INSTR(J*3)*EXT(2) 

0028 

INSTR(J+4)*EXT(3) 

-  * 

0029 

J=J+ 4 

0030 

25 

CALL  SCAN(INSTR,J) 

0031 

CALL  ASSIGN(UNIT, INSTR, J) 

0032 

RETURN 

0033 

END 

-  - 

PROGRAM  SECTIONS  j 

NAME  SIZE  ATTRIBUTES 

\ 


SCODE1  000444  146 


RM,I,CON,LCL 


FORTRAN  IV-PLUS  V02-51E 
TAPF2.FTN  /WR 

SIDATA  000042  17 
SVARS  000060  24 
STF.MPS  000004  2 


16*40:20  06-OCT-80 


RW , D ,CON , LCL 
RW,D,CON,bCL 
RW, D,CON,LCL 


7 

PACE  IS 


TOTAL  SPACE  ALLOCATED  *  000572  189 

MO  FPP  INSTRUCTIONS  GENERATED 
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PAGE  16 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 


SUBROUTINE  SCAN ( BUF , LTH ) 
IMPLICIT  INTEGER(A-Z) 
L0GICAL*1  BUF, DEVICE 
DIMENSION  BUF(l) ,DEVICE(4) 
DATA  DEVICE/ ,S,,,V,,,0,,,1'/ 
DO  1  1=1, LTH 

IF(BUF(I) . E0.DEVICEC4) ) RETURN 

LTH=LTH+4 

DO  2  I*LTH,5,-1 

BUF(I)=BUF(I-4) 

DO  3  1=1,4 
BUF(I)=DEVICE(I) 

RETURN 

END 


PROGRAM  SECTIONS 


NAME 


SIZE 


ATTRIBUTES 


SC0DE1  000172 
SIDATA  000012 
SVARS  000006 
STEMPS  000002 


RW,I,CON,LCL 

RW,D,CON,LCL 

RW,D,CON,LCL 

RW,D,CON,LCL 


TOTAL  SPACE  ALLOCATED  =  000214  70 


NO  FPP  INSTRUCTIONS  GENERATED 


TAPE2,LP:=TAPE2/N0TR 


E-44 
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16:40:46 


06-OCT-80 


C 

FFTRR8.FTN 

C 

JAN. ,30,  1979 

C 

EQU.  ROUTINE  OF  tlOO, 

0001 

SUBROUTINE  FFTRR8CXR, 

0002 

DIMENSION  XR(l)rXI(l) 

0003 

Nr2**N 

0004 

NV2*N/2 

0005 

NMlsN-1 

0006 

J=1 

0007 

00  7  1*1, NM1 

0008 

IFCI.GE. J)G0  TO  5 

0009 

TsXRCJ) 

0010 

XR(J)*XR(I) 

0011 

XR(I)=T 

0012 

T=XI(J) 

0013 

XI(J)*XI(I) 

0014 

XI (I )=T 

0015 

5 

K  =  NV2 

001b 

6 

IFCK.GE. J)GO  TO  7 

0017 

J=J-K 

0018 

K  =  K/2 

0019 

GO  TO  6 

0020 

7 

J=J+K 

0021 

PI=3. 1415927 

0022 

00  20  L=1,M 

0023 

LE=2**L 

0024 

LEl=LE/2 

0025 

URsl.O 

0026 

UI=0.0 

0027 

WR=C0S(PI/LE1) 

0028 

N I=SIN ( PI/LEI ) 

0029 

IFCIS.LT. 0)NI=»NI 

0030 

DO  20  J*1,LE1 

0031 

DO  10  I=J,N,LE 

0032 

IP=I+LE1 

0033 

TR=XR(IP)*UR-XI(IP)*UI 

0034 

TI*XR(IP)*UI+XI(IP)*UR 

0035 

XR(IP)*XRCI)-TR 

0036 

XI(IP)=XICI)-TI 

0037 

XI ( I ) =XI ( I )+TI 

0038 

10 

XRCI)sXR(I) +TR 

0039 

URR=UR*WR-UI*NI 

0040 

UIsURMWI+wRAUI 

0041 

20 

UR=URR 

0042 

IFCIS.EO.-l )GO  TO  40 

0043 

DO  30  1*1, N 

0044 

XR(I)*XRCI)/FLOATCN) 

0045 

XI(I)=XICI)/FLOAT(N) 

0046 

30 

CONTINUE 

0047 

40 

RETURN 

0048 

END 

PROGRAM  SECTIONS 
NAME  SIZE 


ATTRIBUTES 


PAGE  1 


E-45 


16:40:46 


06-0CT-80 


PAGE  2 


m 


FORTRAN 

FFTRR8. 

1V-PLUS 

FTN 

V02-51E 

/MR 

16:40:46 

SC0DE1 

001154 

310 

RW, I, CON, LCL 

SPDATA 

000004 

2 

RM,D,CON,LCL 

S1DATA 

000024 

10 

RW ,  D , CON , LCL 

SVARS 

000070 

28 

Rh,D,CON,LCL 

STEMPS 

000012 

5 

RM , D , CON , LCL 

TOTAL  SPACE  ALLOCATED  *  001306  355 

FFTRR8,LP:=FFTRR8/N0TR 


I 


FORTRAN 

SER.FTN 


OOOl 

0002 

0003 

0004 

0005 


0006 

0007 


0008 

0009 

0010 

0011 

0012 


0013 

0014 

0015 

001b 


0017 

00J8 

0019 

0020 


0021 

0022 

0023 

0024 


0025 
09  2  C 
0027 
0028 
0029 
0030 
0031 


0032 

0033 

0034 


1V-PLUS  V02-51E  16J4U06  06-OCT-80  PAGE  1 

/MR 

C  SER.FTN 

C  SERIALIZE  TRANSMITION  PARAMETERS  INTO  BINARY  DATA 

C 

C  AUG. 4,  1980 

C 

SUBROUTINE  SER< INBA , INB , IBIL) 

COMMON /NT APEO/N IN (170),NOUT(170) 

CQMMON/SBTA/IBPT  * IBBT , IBQL , IBQH ,IBPL(4),IBPH(4) 
CQMMON/SDTA/MPIT , IBETA , IQQL, IQQH , IDPL ( 4 ) , IDPHC4 ) 
DIMENSION  INBA ( 1 )  , INB( i ) 

C 

C  INI.  THE  TRANSMITER  DATA 

C 

DO  100  1=1,360 
100  I  NBA ( I ) =0 

C 

C  SERIALIZE  MPIT 

CALL  DBCONV(MPIT,IBPT,INB) 

IQI=0 

DO  220  1=1 ,  IBPT 
IGIaIGI+1 

220  INBA(IOI)=INB(I) 

C 

C  SERIALIZE  FOR  BETA 

CALL  DBCONV(IBETA, IBBT, INB) 

DO  230  1=1, IBBT 
IQI=IQI+1 

230  INBA(10I)=INB(I) 

C 

C  SERI ALE  FOR  QQL 

CALL  DBCONV (IOOL, IBOL, INB) 

DO  200  1=1 , IBOL 
I0I=IQI+1 

200  INBA(IOI)=INB(I) 

C 

C  SERI ALIOZE  FOR  OOH 

CALL  DBCONV ( IQQH, IBQH, INB) 

DO  210  1=1, IBQH 
IQI=IQI+1 

210  INBA(IQI)=INB(I) 

C 

C  SERIALIZE  FOR  LOW  BAND  PARCOR 

C 

DO  240  J= 1 , 4 
IBT=IBPL(J) 

CALL  DBCONV(IDPLCJ),IBT,INB) 

DO  250  1=1, IBT 
101=10141 

250  INBA(1QI)=INB(I) 

240  CONTINUE 

C 

C  SERIALIZE  FOR  HIGH  BAND  PARCOR 

C 

DO  260  J=1 , 4 
IBT=I8PH( J) 

CALL  DBC0NV(IDPH(J),IBT,1NB) 


E-47 


FORTRAN  IV-PLUS  V02-51E  16:41:06  06-0CT-80 
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0035 

DO  270  1=1, IBT 

0036 

IQI=IQI+1 

0037 

270 

INBACIGI)=INBCI) 

0036 

260 

CONTINUE 

C 

C 

IOI  WILL  BE  50 

0039 

C 

IQS=50 

C 

PROTECT  56  BITS  OF  IMPORTANT  BAND 

C 

0040 

IBIH=3-IBIL 

0041 

C 

IFCIBIL.LE.DGO  TO  300 

C 

IBIL=2  OR  3 

0042 

I  ES=0 

0043 

I£F=72 

0044 

IBLsIBIL 

0045 

IBSsIBIH 

0046 

GO  TO  400 

0047 

300 

CONTINUE 

0048 

IES=72 

0049 

IEF=0 

0050 

IBL=IBIH 

0051 

IBS=IBIL 

0052 

400 

CONTINUE 

0053 

c 

IF( IBL.EQ.3)G0  TO  600 

c 

IBL=2 

c 

c 

SERIALIZE  HIGHER  ENERGY  ERROR  SIGNALS 

0054 

DO  520  1=1,72 

0055 

Ijsl+IES 

0056 

CALL  DBCONVCNINCIJ) ,IBL,INB) 

0057 

DO  530  J=1 , IBL 

0058 

IQS=I0S+1 

0059 

530 

IN8A(IQS)=INB(J) 

0060 

520 

CONTINUE 

C 

C 

SERIALIZE  LOW  ENERGY  BAND  ERROR  SIGNALS 

C 

0061 

DO  540  1=1,72 

0062 

IJ=I+IEF 

0063 

IQS=10S+1 

0064 

550 

INBA(IQS)=NIN(IJ) 

0065 

540 

CONTINUE 

0066 

RETURN 

0067 

600 

CONTINUE 

C 

C 

I8L=3 

C 

1 8S  =  0 

0068 

DO  610  1=1,31 

0069 

I J=I+IES 

0070 

CALL  DBCONVCNINCIJ) , IBL, INB) 

0071 

DO  620  J=1 , IBL 

0072 

IQS=10St 1 

0073 

620 

INBACIOS)=INBCJ) 

16M1 J06 


06-OCT-80 


FORTRAN  IV-PLUS  VQ2-51E 
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0074 

0075 

0076 

0077 

0078 

0079 


610 

C 


CONTINUE 

DO  630  1*32,72 
I J*I+IES 

CALL  DBCONV (NIN(IJ),IBL,INB) 

DO  640  J*1 , 2 

I0S=I0S+1 


0080 

640 

INBA(IQS)= 

INB(U) 

C 

STORE  THE 

THIRD  BITS  OUT  OF  1 

0081 

INBA(194+I)*XNB(3) 

0082 

630 

CONTINUE 

0083 

RETURN 

0084 

END 

PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SCODE1 

001716 

487 

RW,I,CON,LCL 

SIDATA 

000104 

34 

R*,D,CON,LCL 

$  VARS 

000026 

11 

RW ,  D , CON  t LCL 

STEMPS 

000004 

2 

RN,D,CON,LCL 

MTAPEO 

001250 

340 

RW,D,OVR,GBL 

SBTA 

000030 

12 

RW , Dr OVR/GBL 

SDTA 

000030 

12 

RW,D,OVR,GBb 

TOTAL  SPACE  ALLOCATED  *  003404  898 

NO  FPP  INSTRUCTIONS  GENERATED 
SER , LP : sSER/NOTR 
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CESK. 

FTN 

/MR 

C 

ENCbCH.FTN 

C 

MARCH  16,  1979 

C 

ENCODING  OF  A(63,45)BCH  CODE 

0001 

SUBROUTINE  ENCBCH ( INBA , INA , INC , KT ) 

0002 

DIMENSION  INBA(l) , INA( 1 ) , INC( 1 ) , INGC 19) 

0003 

C 

DATA  ING/ 1,1, 1,1, 0,0, 0,0, 0,1, 0,1, 1,0, 0,1 ,1,1,1/ 
CALCULATE  PARITY  BITS 

0004 

DO  10  1=1,63 

0005 

KTI=(KT-1)*63+I 

0006 

INA(I)=INBA(KTI) 

0007 

IF(I.GT.45)INA(I)=0 

0008 

10 

CONTINUE 

0009 

C 

CALL  GF2DIV(INA,63,ING,19,INC,NC) 

SHIFT  18  BITS  FOR  PARITY  BITS 

0010 

KTF=270+18*KT 

0011 

KTI=KTF-63*KT 

0012 

DO  30  1=1, KTI 

0013 

INBA(KTF+1-I)=INBA(KTF-17-I) 

0014 

30 

n 

CONTINUE 

L 

c 

STORE  PARITY  BITS 

0015 

DO  20  1=1, NC 

0016 

KTI=(KT-1) *63+1+45 

0017 

20 

IN8A(KTI)=INCCI) 

0018 

RETURN 

0019 

END 

PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SC0DE1 

000412  133 

RW , I , CON , LCL 

SPDATA 

000010  4 

RW ,  D , CON , LCL 

SIDATA 

000054  22 

RN , D , CON , LCL 

SVARS 

000056  23 

RW , D, CON , LCL 

STEMPS 

000002  1 

RW , D, CON , LCL 

TOTAL  SPACE  ALLOCATED  =  000556  183 

MO  FPP  INSTRUCTIONS  GENERATED 


E-50 
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C 

C 

C 


0001 

0002 

0003 

0004 

0005 

0006 

50 

C 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

10 

0016 

30 

0016 

40 

0017 

0018 

0019 

0020 

0021 

0022 

20 

0023 

100 

0024 

0025 

CEIR.FTN 
MARCH  16,  1979 

CHANNEL  ERROR  SIMULATION  ROUTINE 

SUBROUTINE  CEIR ( INBA , NBRPF , PROB , I RN , JRN , NERB , NEPB ) 

COMMON/SW/ICOUNT,IPRSN 

DIMENSION  INBA ( 1 ) , NERB ( 1 ) 

NEPB1=NEPB+1 
DO  50  1=1 , NEPBl 
NERB ( I ) =0 

XMIT  INPUT  BINARY  VECTOR 
IFCNEPB.LE.OJGO  TO  40 
DO  30  J=1 , NEPB 
DO  10  1=1,63 
ISV 1=NERB (J ) 

IP=I+63*(J-1) 

CALL  RANERRCINBA(IP) ,PROB,IRN, JRN, NERB ( J) ) 

IF(ISVl.NE.NERBCJ) . AND . IPRSW . EG . 1 ) WRITE (4,100 JICOUNT, IP 

CONTINUE 

CONTINUE 

CONTINUE 

ISTP=NEPB*63+1 

DO  20  I=ISTP, NBRPF 

ISV1=NERBCNEPB1) 

CALL  RANERR(lNBA(I) , PROB , IRN , JRN , NERB ( NEPBl ) ) 

IFCISV1 .NE. NERB (NEPBl) .AND, 1PRSW.E0.1) WRITE (4,1 00) ICOUNT, I 
CONTINUE 

FORMAT (IX, 'FR=* ,I4,2X, 'ERR  LC* ' ,13) 

RETURN 

END 


PROGRAM  SECTIONS 


NAME 

SIZE 

ATTRIBUTES 

SCODEl 

000664 

218 

RN , I , CON , LCL 

SIDATA 

000066 

27 

RW,D,CON,LCL 

$  VARS 

000014 

6 

RN , D , CON , LCL 

STEMPS 

000010 

4 

RN, D,CON , LCL 

S  W 

000004 

2 

RN,D,OVR,GBL 

TOTAL  SPACE  ALLOCATED  =  001002  257 

NO  FPP  INSTRUCTIONS  GENERATED 


E-51 


16:42:07 


06-0CT-80 


FORTRAN  IV-PLUS  V02-51E 
CESR.FTN  /NR 


0001 

0002 

0003 

0004 

0005 

0006 

0007 


RANERR.FTN 

SUBROUTINE  RANERR ( IX , PROB, XRN , JRN , NER) 
CALL  RANDU ( IRN , JRN , YQR) 

IF (YQR.GE. PROS) RETURN 
IX  =  IEOR( IX,  1 ) 

NER=NER+1 

RETURN 

END 


PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SCODEl 

000066 

27 

RW ,  I , CON ,LCL 

SIDATA 

000010 

4 

RW ,  D , CON , LCL 

$  VARS 

000004 

2 

RW , D , CON , LCL 

TOTAL  SPACE  ALLOCATED  =  000102 

33 

E-52 
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C 

DECBCH.FTN 

C 

DECODING  OF  BCH  CODE 

C 

EXAMPLE  OF  A(63,45)  BCH  CODE  WHICH  CORRECT  3  ERRORS 

C 

G(X)  =  <X**6«-X  +  1)(X**64X**4*X**2+X+1)(X**6+X**5+X**2  +  X  +  1) 

0001 

SUBROUTINE  DECBCH(INBA,XNA,KT,NES) 

0002 

COMMON /S to /ICOUNT, IPRSW 

0003 

DIMENSION  ISD1C7) f ISD3 (7 ) , ISD5C7 ) , INA( 1 ) , INBC63) , INC( 7 ) , IM1 (7 ) 

0004 

DIMENSION  INBA(l) fN£RL(3) 

0005 

DATA  IMl/1,0,0,0,0,1,1/ 

C 

READ  INPUT  VECTOR  INA 

0006 

DO  10  Isl , 63 

0007 

KTI=(KT-1)*45+I 

0006 

10 

INA(I)=INBA(KTI) 

C 

r> 

START  DECODING 

i. 

c 

p 

DECODING  ROUTINE 

L 

c 

****** **************************** 

c 

CALCULATE  POWER  SUMS 

0009 

CALL  GF2DIV(INA,63,IM1,7,ISD1,NC) 

c 

CALCULATE  R(X**3) 

0010 

DO  18  1=1 ,63 

0011 

18 

INB(I)=0 

0012 

DO  19  1=1,63 

0013 

I3=(63-I)*3 

0014 

IR=I3-(I3/63)*63 

0015 

IT=63-IR 

0016 

IX=INA(I) 

0017 

19 

INB(IT)=IEOR(IX,INB(IT)) 

0018 

CALL  GF2D1V(INB,63,IM1,7,ISD3,NC) 

C 

CALCULATE  R(X**5) 

0019 

DO  28  1=1,63 

0020 

28 

I NB  C I ) =0 

0021 

DO  29  1=1,63 

0022 

I5=(63-I)*5 

0023 

IR=I5-( 15/63) *63 

0024 

IT=63-IR 

0025 

IX=INA ( I ) 

0026 

29 

INB(IT)=IEOR(IX,INB(IT) ) 

0027 

CALL  GF2DIV(INB,63,IM1,7,ISD5,NC) 

0028 

101 

F0RMATC1X, 'Sl=' ,1811) 

0029 

202 

FORMATUX,  'S3*'  ,1811) 

0030 

303 

F0RMAT(1X, 'S5=' ,1811) 

C 

CHECK  ERROR  RANGE 

0031 

DO  40  1=1,6 

0032 

IF(ISD1CI),E0.1)G0  TO  50 

0033 

IF(ISD3(I).E0.1)G0  TO  50 

0034 

IF(ISD5(I).EQ.1)G0  TO  50 

0035 

40 

CONTINUE 

C 

NO  CHANNEL  ERROR 

0036 

GO  TO  998 

0037 

50 

CONTINUE 

C 

c 

CORRECT  CHANNEL  ERROR 

V* 

c 

CALCULATE  SIGMA(I) ,I«1 ,3 

c 

CALCULATE  DETC 3) , I ,E. ,S1**3+S3 

E-53 
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0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

004  6 
0047 


0048 

0049 


0050 

0051 

0052 

0053 

0054 

0055 

0056 


0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 


CC 


60 

C 

70 

C 

C 

90 

C 

C 


CC 


789 

C 


444 

C 

C 

c 

39 


CC 

404 

C 


59 

69 

79 

89 

49 

109 


CALL  GF2MUL(ISD1,6,ISD1,6,INC,ND,IM1,7) 

CALL  GF2MUL(ISD1,6,INC,6,INA,ND,IM1,7) 

CALL  GF2ADD(INA,6,ISD3,6,INB,ND) 

IF (ISWO. EQ. 2 )*RITE( 5, 303) (INB (I ), 1*1, ND) 

NES=3 

DO  60  1*1,6 

IFdNB(I)  .EQ.DGO  TO  70 

CONTINUE 

NES  =  1 

ONLY  ONE  ERROR  OCCUR 

GO  TO  80 

CONTINUE 

CALCULATE  SIGMA(2>  AND  SIGMA(3> 

STORE  INB( I  )  ,  1  =  1 , 6 
DO  90  1  =  1,6 
INA(I)=INB(I) 

CALCULATE  SIGMAC2) 

CALCULATE  S1**2*S3+S5 

CALL  GF2MUL(INC,6,ISD3,6,INB,NC,IN1  ,7) 

CALL  GF2 ADD (INB,6,ISD5,6,INC,NC) 
IF(ISN0.EQ.2)WRITE(5,303)(INC(I),Iel,6) 

DO  789  1=1,6 

IFCINCd)  .EQ.DGO  TO  444 

CONTINUE 

I  NC=0 

GO  TO  85 

CONTINUE 

FIND  THE  ORDER  OF  INC*S1 **2*S3+S5 

FIND  THE  ORDER  OP  INA*S1**3+S3 

INI  INB 

DO  39  1=1,63 

INB (I ) =0 

IOR A=0 

IO,RC=0 

DO  49  1=2,63 

INB(64-I)=1 

INB(65-I)=0 

CALL  GF2DIV(INB,63,IM1,7,ISD3,NC) 

IFdSNO.  EQ  .2.AND.ISW1.  EQ,  1 )  WRITE  (  5 , 404  )  I  ,  ( ISD3  ( J  )  ,J  =  1,6) 
FORMAT (IX, 'N=' ,I3,3X,8I1) 

CHECK  THE  ORDER 
DO  59  0=1 ,6 

IFCISD3C J) .NE.INA(J) )GO  TO  69 
CONTINUE 
IOR A=I - 1 
DO  79  J=1 ,6 

IF(ISD3(J).NE.INC(J))GO  TO  89 

CONTINUE 

IORC=I-l 

IF(IORA.NE.O,AND.IORC.NE.O)GO  TO  109 

CONTINUE 

I0R3»I0RC-I0RA 

IF(I0R3.LT.0)I0R3*I0R3463 

IOR3=63-IOR3 

DO  119  1=1,63 

IT*0 


E-54 


p 
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0081 

IFCI.EQ.IOR3)IT*l 

0082 

119 

INBCI)*IT 

C 

CALCULATE  SIGMA ( 2 ) 

0083 

n 

CALL  GF2DIVCINB,63,IN1,7,ISD3,NC) 

L 

cc 

IFCISN0.EQ.2)WRITEC5,202)CISD3CI) ,1=1,6) 

c 

CALCULATE  SIGMA(3) 

0084 

CALL  GF2MUL(ISD1 , 6 , ISD3 , 6, INC, NC , IMi  ,  7 ) 

0085 

CALL  GF2ADDCINA,6,INC,6,ISD5,NC) 

cc 

IFCISW0.EQ.2) WRITECS, 303) (ISDS(I) ,1=1,6) 

c 

IF  ISD5=0 ,  THEN  NES=2 

0086 

DO  71  1=1,6 

0087 

IF(ISD5(I).NE.O)GO  TO  80 

0088 

71 

CONTINUE 

0089 

N£S=2 

0090 

GO  TO  80 

0091 

85 

CONTINUE 

0092 

00  87  1=1,6 

0093 

ISD3 ( I ) =0 

0094 

ISD5 ( I ) =IN A  C I ) 

0095 

87 

CONTINUE 

0096 

80 

CONTINUE 

C 

n 

CORRECT  NES  ERROR  BY  CHIEN'S  SEARCH  METHOD 

0097 

C 

NEST=0 

0098 

DO  11  11=1,63 

0099 

111=11-1 

0100 

IFdll.EQ.  0)111=63 

c 

INI  VECTOR  C 

0101 

DO  22  1=1,6 

0102 

22 

INB( I )=0 

0103 

CALL  GF2ADD(ISD1,6,INB,6,INC,NC) 

0104 

IFCNES.EO.DGO  TO  33 

0105 

CALL  GF2AD0(ISD3,6,INC,6,INB,NB) 

0106 

CALL  GF2ADD(INB,6,XSD5,6,INC,NC) 

0107 

33 

CONTINUE 

CC 

IF(ISW0.EQ.2.AND.ISNl.EO.l)NRITE(5,303) CINC(I) ,1=1 ,6) 

0108 

IF(INC(6).EQ.O)GO  TO  44 

0109 

DO  55  1=1,5 

0110 

IF(INC(I).EQ.1)G0  TO  44 

0111 

55 

CONTINUE 

C 

CORRECT  ERROR 

0112 

KTT=(KT-l)*63tIIl 

0113 

NEST=NEST+1 

0114 

NERL(NEST)=KTT 

0115 

44 

CONTINUE 

C 

SHIFT  ISV1 , ISV3, ISV5 

0116 

INBC 1 )=1 

0117 

INB(2)=0 

0118 

DO  88  1=1,6 

0119 

88 

IN A ( I ) *ISDi ( I ) 

0120 

CALL  GF2MUL(INA,6,INB,2,ISD1,NC,IM1,7) 

0121 

IFCNES.EO.DGO  TO  11 

0122 

INBC 1 )*1 

0123 

INBC  2)*0 

0124 

INBC3)=0 

E- 55 
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0125 

0126 

775 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

665 

0134 

0135 

11 

C 

0136 

0137 

0138 

C 

0139 

888 

0140 

0141 

0142 

0143 

707 

0144 

0145 

0146 

72 

0147 

998 

C 

C 

C 

0148 

0149 

0150 

0151 

900 

0152 

0153 

DO  775  1=1,6 
IN A ( I ) =ISD3 ( I ) 

CALL  GF2MUL(INA,6,INB,3,ISD3,NC,IM1,7) 

INB ( 1 ) =1 

INB(2)*0 

INB(3}=0 

INB(4)=0 

DO  665  1=1,6 

INA ( 1 ) =1SD5 ( I ) 

CALL  GF2MUL(INA,6,INB,4, ISD5 , NC ,  IM1 , 7 ) 

CONTINUE 

CHECK  ERROR  STATUS 

IF(NES.EQ.NEST)GO  TO  888 

NES  =  4 

GO  TO  998 

CORRECT  ERRORS 

CONTINUE 

DO  72  1=1, NES 

KTT=NERL(I) 

IF(I  PRSW.EQ.DWRITE  (4, 707)1  COUNT, KTT 
F0RMAT(1X, 'FR=* ,I6,2X, 'EC  LC=* ,13) 

KTR=KTT-(KT-1 )»18 
INBA(KTR)=IEOR(INBA(KTR)  ,1 ) 

CONTINUE 

CONTINUE 

COMPRESS  18  PARITY  BITS  FOR  DESERIALIZATION  ROUTINE 

KTI=45*KT+1 
KTF=360-18*KT 
DO  900  1=KTI , KTF 
INBA(I)=INBA(I+18) 

RETURN 

END 


PROGRAM  SECTIONS 


NAME 

SIZE 

ATTRIBUTES 

SCODE1 

002706 

739 

RW , I ,CON , LCL 

SPDATA 

000030 

12 

RN , D , CON , LCL 

SIDATA 

000430 

140 

RW ,D,C0N ,LCL 

SVARS 

000362 

121 

RW,D,CON,LCL 

STEMPS 

000002 

1 

RW,D,CON,LCL 

S* 

000004 

2 

R W , D , OVR , GBL 

TOTAL  SPACE  ALLOCATED  =  003756  1015 

NO  FPP  INSTRUCTIONS  GENERATED 
CESR , LP : =CESR/NOTR 


E-56 
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OOOl 

0002 

0003 

0004 

0005 

0006 

0007 

0008 


0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 


0017 


0018 


C  MRNSA.FTN 

C 

C  JUNE  6 ,  1980 

C 
C 
C 

C  ************** 

c 

C  NOISE  SUPPRESION  ROUTINE  BY  R.J.  MCAULAY 

C 

C 

C  R.J.  MCAULAY , "SPEECH  ENHANCEMENT  USING  A  SOFT-DECISION  NOISE 
C  SUPPRESION  FILTER, "IEEE  TRANS.  ASSP  APRIL  1980. 

C 

C  *************** 

C 

SUBROUTINE  MRNSA(XR,XI , NTOTI , NSF) 

COMMON/HTAPEO/NINC 170 ) , NOUT( 170) 

C0MM0N/NSTBL/FN5TBL ( 50) 

DIMENSION  XR(l)fXI(l) 

DIMENSION  STCSC129) ,DIST(128) 

DATA  STCS/129*1 .0/ 

DATA  DIST/1040.0, 117*200. ,0.0/ 

DATA  AGNO,AGNL/2*1.0/ 

C  TAKE  DFT  OF  NOISY  INPUT  SPEECH  SIGNAL 

C 

C  CALCULATE  ENERGY  FOR  V/N/S  DECISION 

C 

ENOsO.O 

DO  8010  131,256 

XI(I)=0.0 

XR ( I ) =0 . 0 

IF ( I .GT. NTOTI ) GO  TO  8010 
XR(I)»FLOAT(NIN<I)) 

8010  EN0sEN0+XR(I)**2 
ENOsENO/128.0 

C 

c 

C  PERFORM  DFT 

C 

CALL  FFTRR8(XR,XI,8,-I) 

C 

C 

C  CLASSIFY  SIGNAL  STATE 

C  USE  ROBERT'S  MODIFIED  NOISE  DETECTION  ALGORITHM 

C 

CALL  MRNDA(£NO,DIST,NTHO,THL,ENN,FMU) 

C 

C 

C 

C 

C  SUPPRESS  NOISE  IN  FREQUENCY  DOMAIN 

C 

C  USE  MCAULAY ' 5  APPROACH 

C 
C 


START  SUPPRESION 


K»- 


SST  — S3 
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C 

0019 

0020 

0021 

0022 

C 

0023 

0024 

0025 

0026 

C 

C 

C 

0027 

0028 

C 

C 

C 

0029 

0030 

0031 

0032 

0033  8033 

.  c 
c 
c 

0034 

0035 

0036 

0037 

C 

C 

0038  8037 

0039 

0040  8030 

C 
C 
C 
C 

0041 

C 

C 

C 

c 

0042 

C 

C 

C 

0043 

C 

C 

C 

0044 

0045 

0046 


AGN=0.0 

DO  8030  jsl,256 
JX=J 

IF(J.GE.129)JX=258-J 
SIGNAL  POWER  SPECTRUM  ASPW 
ASPW=XR(J)442tXI<J)**2 
GNsASPW-STCS(JX) 

IF(GN.GE.1.E-6)GN*GN/ASPW 

IF(GN.LE.l.E-6)GN*l.E-6 

UPDATE  NOISE  SATTISTICS  IF  SPEECH  NOT  PRESENT 

IF ( J .GT. 129 )GO  TO  8033 
IF(NTH0.EQ.2)G0  TO  8033 

UPDATE  NOISE  STATISTICS 

TT=STCS(d)-ASPW 

IF(TT.LT.0.0)TT»TT40.7788 

IF(TT.GE.0.0)TT=TT40.875 

STCS(d)=ASPWtTT 

CONTINUE 

CALCULATE  SUPPRESION  FACTOR 


IGN*INT(GN*50.0)+1 

IFCIGN.GE.50)IGNa50 

GNsFNSTBL(IGN) 

AGN=AGNtGN 

INSERT  SMOOTHING  GAIN  PROGRAM  IN  LATER  VERSION 

XR(J)sXR(J)*GN 

XI(J)*XI(J)*GN 

CONTINUE 

NOISE  SUPPRESSION  IS  DONE  IN  FREQUENCY  DOMAIN 

PERFORM  INVERSE  DFT 
CALL  FFTRR0(XR,XI,8,l) 

STORE  NOISE  SUPPRESSED  OUTPUT  TIME  DOMAIN  FOR  SBAPC 


AGNsAGN/256.0 

CALCULATE  LONG  TERM  AGN  AND  USE  IT  TO  ADJUST  THE  NOISE  SUPPRESION 
FACTOR  ADAPTIVELY  IN  LATER  VERSION 
AGNLsAGNL*127./l28.0*AGN/128.0 

CALCULATE  SHORT  TERM  AGN 

AGNOsAGN040.75tAGN40.25 

FMULsAGNO/AGNL 

FNUL«5QRT(FMUL) 


C 


E-58 


16:43:12 


06-0CT-80 


FORTRAN 

IV-PLUS 

V02-51E  1 

BNSR.FTN 

C 

/MR 

0047 

DO  8040  I*l,NTOTI 

0048 

XR(I)*FMUL*XR(I) 

0049 

8040 

C 

CONTINUE 

0050 

RETURN 

0051 

END 

PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SCODEl 

001070 

284 

RH , I , CON , LCL 

SPDATA 

000024 

10 

RN / D, CON , LCL 

S1DATA 

000066 

27 

RM,D,CON,LCL 

SVARS 

002072 

541 

RW,D,CON,LCL 

STEMPS 

000002 

1 

RW ,  D  r CON , LCL 

MTAPEO 

001250 

340 

RW ,  D , OVR , GBL 

NSTBL 

000310 

100 

RW,D,OVR,GBL 

TOTAL  SPACE  ALLOCATED  *  005056  1303 


E-59 


16:43:41 
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FORTRAN  IV-PLUS  V02-51E 
BNSW.FTN  /MR 


> 

t 


f 


! 


C 

P 

MRNDA.FTN 

c 

r» 

MAY  15,  1980 

\- 

c 

c 

MODIFIED  ROBERT'S  NOISE  DETCT10N  ALGORITHM (ASSP  144, 

APRIL  1980) 

0001 

c 

SUBROUTINE  MRNDA ( ENO , DIST , NTH , THL » F JMX , FMU ) 

0002 

DIMENSION  DIST ( 1 ) 

0003 

DATA  THMXT,THMX,THOL,THOMN/2*32768. 0,1 6384. 0,1 024./ 

0004 

/* 

DATA  FMUL/1.0/ 

c 

c 

r* 

CHECK  INPUT  ENERGY 

L 

c 

NTH=0;SILENCE 

c 

NTH= 1 : NOISE  PRESENT 

c 

c 

NTH=2  : SPEECH  PRESENT 

c 

SLOW  DEGARDATION  OF  MAX  ENERGY  VALUE 

0005 

l 

THMX=THMX*0.995 

c 

CALCULATE  AVERAGE  FRAME  ENERGY 

0006 

THMXT=THMXTv0.75+EN0*0.25 

0007 

IF(THMXT.GE.THMX)THMX=THMXT 

c 

FIND  MAX  DIST.  POINT 

0008 

JMX=1 

0009 

DIMXsDISTCl) 

0010 

DO  100  1=2,128 

• 

0011 

IF(DIST(I).LE.DXMX)GO  TO  100 

0012 

JMX  =  I 

0013 

DI MX=DIST ( I ) 

0014 

100 

r 

CONTINUE 

L 

c 

c 

FIND  AVERAGE  VALUE  OF  THMX  AND  JMX  EQUIVALENT 

■* 

0015 

L 

c 

FJMX=256. 0*FLOAT( JMX+1 )/FMUL 

c 

DECREASE  FMUL  IF  MORE  THAN  100  FRAMES  ARE  SPEECH'S 

0016 

IF(NTH.NE.2)ICT«0 

0017 

IF(NTH.EQ.2)ICT*ICT+1 

0018 

IFC ICT.LE.50)GO  TO  333 

0019 

FMUL*FMUL/2 , 0 

* 

0020 

GO  TO  222 

0021 

333 

p 

IF ( JMX.NE. 1 )G0  TO  222 

- 

c 

INCREASE  FMUL 

0022 

FMUL=FMUL*2.0 

0023 

222 

CONTINUE 

0024 

AVENN=SQRT(FJMX*THMX) 

0025 

FMULT=32768.0/AVENN 

C 

P 

SLOW  CHANGE  OF  FMUL  TIME  CONST  1  SEC 

* 

0026 

V 

FMUL=FMULT+0.875*(FMUL-FMULT) 

- 

0027 

FMUsFMUL 

0028 

NTH=2 

c 

TEST  FOR  NOISE  PRESENSE 

. 

■ 
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BNSR. 

FTN 

/MR 

C 

C 

DECAY  HISTOGRAM  BY  4-SEC  TIME  CONSTATNT 

C 

c 

FS*6400,  FRAME  5IZE*22.5  MS(144  SAMPLES) 

0029 

V* 

FNORMsO.O 

0030 

DO  10  1*1 ,128 

0031 

DISTCI)«DIST(I)40.9944 

0032 

FNORMsFNORM+DISTfl) 

0033 

10 

c 

CONTINUE 

v. 

c 

NORMAIZE  ENERGY  SUCH  THAT  TH0L=16384. 

cc 

FMULsl.O 

0034 

EhaENO*FMUL 

0035 

IF (EN.GE. 32768.) RETURN 

c 

c 

CALCULATE  PRESENT  FRAME  ENERGY  BIN 

0036 

v- 

JBINslNT(EN/256.) 

0037 

NTH  =  0 

0038 

DECAYsO. 60653 

0039 

THNWsO.O 

0040 

IF(JBIN.EQ.O) GO  TO  30 

0041 

DIST ( JBIN ) =DIST(JBIN) +144. 

0042 

c 

FNORMsFNORM+144. 

c 

c 

SEARCH  FOR  SILENCE  AND  SET  NEM  THRESHOLD 

0043 

THSLaFN0RM/4.0 

0044 

THNCSFN0RM40.8 

0045 

THMVsO.O 

0046 

DO  20  J*l,10 

0047 

20 

THMV*THMV+DIST( J) 

0048 

r 

IF(THMV.GE.THSL)GO  TO  30 

C 

c 

NOISE  PRESENT 

0049 

L 

n 

NTH=1 

0050 

v. 

DO  40  J«1 1,128 

0051 

THMV=THMV+DIST(J) 

0052 

IF(THMV«GE.THNC)GO  TO  50 

0053 

40 

CONTINUE 

0054 

50 

CONTINUE 

0055 

THNWs256.*FL0AT(J) 

0056 

IF(EN.GE.TH0L)NTH*2 

0057 

IF (THNW.LT.THOL)GO  TO  30 

0058 

DECAYsO. 945 

0059 

30 

CONTINUE 

0060 

THQLsTHNN+DECAY*(THOL-THNW) 

CC 

THOLsTHOL+DECAY* (THNM-THOL) 

0061 

IF ( THOL . LE . THOMN ) THOL*THOMN 

0062 

IF(NTH.EQ.O.AND.THOL.LE.EN)THOL=EN 

0063 

THLsTHOL/FMUL 

0064 

RETURN 

0065 

END 

PAGE 
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8NSR.FTN  /NR 


PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SCODE1 

001232 

333 

RW, I, CON, LCL 

SPDATA 

000024 

10 

R  W  ,  D , CON , LCL 

sidata 

000012 

5 

RW , D , CON , LCL 

SVARS 

000106 

35 

R W , D , CON  f LCL 

TOTAL  SPACE  ALLOCATED  =  001376  383 

bnsr,lp:*bnsr/notr 
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FORTRAN  IV-PLUS  V02-51E 
DSER.FTN  /WR 


C 

DSER.FTN 

C 

DESERIALIZE  BINARY  DATA 

C 

AUG  4  f 1980 

0001 

SUBROUTINE  DSER(INBA,INB,QQL,QQH,IBIL/,IBIH,ILMX,ILNN) 

0002 

COMMON/MTAPE0/NIN(170),NOUT(170) 

0003 

C0MM0N/SBTA/IBPT,IBBT,IBQL,IBQH,IBPL(4) f IBPH(4) 

0004 

C0MM0N/SDTA/MPIT,IBETA,I0QL,I00H,IDPL(4),1DPH(4) 

0005 

DIMENSION  INBA(1),INB(1) 

l 

c 

c 

DESERIALIZE  PITCH 

0006 

V, 

101  =  0 

0007 

DO  220  1=1 > IBPT 

0008 

IQI=IQI+1 

0009 

220 

INB(I)=IN8A(I0I) 

0010 

c 

CALL  BDCONVdNB,IBPT,MPIT) 

c 

DESERIALE  FOR  BETA 

0011 

DO  230  I=1,IBBT 

0012 

101=101+1 

0013 

230 

Ihb(I)=INBA(IQI) 

0014 

CALL  BDCONVCINBfIBBT.IBETA) 

c 

c 

DESERIALIZE  FOR  QOL 

0015 

DO  200  1  =  1  » I BQL 

0016 

101=101+1 

0017 

200 

INB(I)=INBA(IQI) 

0018 

c 

CALL  BDCON V ( I NB , I BOL , I QOL) 

c 

DEOUANTIZE  FOR  QOL 

0019 

IQD=32 

0020 

CALL  DEQTZdQD*  I QOL. QOL) 

0021 

p 

IQD=IQD+2**CIBQL+1)-1 

L 

c 

DESERIALIZE  FOR  IOQH 

0022 

DU  210  1=1 / IBQH 

0023 

101=101+1 

0024 

210 

INB(I)=INBA(IQI) 

0025 

p 

CALL  BDCONVdNB, IBQH,  IOQH) 

U 

c 

p 

DEQUNTIZE  FOR  QQH 

0026 

L 

p 

CALL  DEQTZ(IQDrIOOH,OOH) 

l 

c 

p 

FIND  THE  BITS  ASSIGNMENTS  FOR  LOW  BAND  AND  HIGH  BAND 

c 

p 

ASSUME  THE  AVERAGE  BITS=1.5 

l 

c 

QQL  IS  LOG  QQL  OF  BASE  2 

0027 

FIBIL=1.5+(OQL-QQH)/2.0 

0028 

IBILsFIBIL+0.5 

0029 

XF(IBIL.GE.ILMX)IBIL*ILMX 

0030 

IF(IBIL.LE.ILMN)IBIL=ILMN 

0031 

IBIH=3-IBIL 

0032 

GQL=2.0**QQL 

0033 

OGH=2.0**QQH 
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DSER. 

FTN 

/WR 

C 

C 

DESERIALIZE  FOR  PARCDR  OF  LOW  BAND 

c 

0034 

DO  240  J=l,4 

0035 

IBT=IBPL( J) 

0036 

DO  250  1=1, IBT 

0037 

IQI=IOI+l 

0038 

250 

INBCI)sINBA(IQI) 

0039 

CALL  BDCONV(INB,IBT, IDPLCJ)) 

0040 

240 

CONTINUE 

L 

c 

DESERIALIZE  FOR  PARCOR  OF  HIGH  BAND 

c 

0041 

DO  260  J  =  l,4 

0042 

IBT=I8PH(J) 

0043 

DO  270  1=1, IBT 

0044 

101=101+1 

0045 

270 

INB(I)=INBA(IQI) 

0046 

CALL  BDCON V (INB,IBT,IDPH(J)J 

0047 

260 

CONTINUE 

C 

C 

DESERIALIZE  FORERROR  SIGNALS 

0048 

IF(IBIL.LE.1)G0  TO  300 

C 

n 

IB1L=2  OR  3 

0049 

I  ES=0 

0050 

IEF=72 

0051 

IBL=IBIL 

0052 

IBS=IBIH 

0053 

GO  TO  400 

0054 

300 

CONTINUE 

0055 

IES=72 

0056 

IEF=0 

0057 

IBL=IBIH 

0058 

IB5=IBIL 

0059 

400 

CONTINUE 

C 

C 

0060 

P 

IQS=50 

0061 

I F ( I BL . EO . 3 ) GO  TO  600 

c 

c 

IBL=2 

c 

DESERIALIZE  FOR  HIGHER  ENERGY  BAND 

c 

c 

0062 

DO  520  1=1,72 

0063 

I J=I+IES 

0064 

DO  530  J=1 , IBL 

0065 

IQSsIQS+1 

0066 

530 

INB(J1=INBA(IQS) 

0067 

CALL  BDCON V (INB,IBL,NIN(IJ)) 

0068 

520 

CONTINUE 

C 

C 

DESERIALIZE  LESS  IMPORTANT  BAND 

C 

E-64 
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oser.ftn 

/WR 

0069 

DO  540  1=1,72 

0070 

IJsI+IEF 

0071 

IOS=IQS+l 

0072 

NIN(IJ)=INBA(IQS) 

0073 

540 

continue 

0074 

RETURN 

0075 

600 

CONTINUE 

C 

C 

r* 

IBL=3 

0076 

L 

DO  610  1=1,31 

0077 

IJ=I+IES 

0070 

DO  620  J=1 , IBL 

0079 

IQS=IUS* 1 

0080 

620 

INB(J)=INBA(IQS) 

0061 

CALL  BDCONV(INB,IBL,NIN(IJ)) 

0082 

610 

CONTINUE 

C 

0083 

DO  63u  1=32,72 

0084 

I J=I+IES 

0085 

DO  640  J=1 , 2 

0086 

IQS=IQS+ 1 

0087 

640 

INB(J)=INBA(IQS) 

0088 

InB(3)=INBA(194+I) 

0089 

CALL  BDCONVCINB,IBL,NIN(IJ) ) 

0090 

b30 

CONTINUE 

L 

C 

END  OF  DESERIALIZATION 

0091 

RETURN 

0092 

END 

PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SC0DE1 

002162 

569 

RW ,  I , CON , LCL 

SIDATA 

000124 

42 

RW ,  D , CON , LCL 

SVARS 

000032 

13 

RW , D , CON , LCL 

STEMPS 

000004 

2 

RW , D , CON , LCL 

MTAPEO 

001250 

340 

RW , D , OVR , GBL 

SBTA 

000030 

12 

RW , D , OVR , GBL 

SDTA 

000030 

12 

RW, D, OVR, GBL 

TOTAL  SPACE  ALLOCATED  =  003674  990 


06- 


dser,lp:=user/notr 
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GF2AMD . FTN  /WR 


C 

GE2ADD.FTN 

C 

ADDITION  OVER  GF(2) 

C 

POLINOMI AL  A ( X )  MUST  BE  ORDERED  IN  DESCENDING  POWER  SERIES 

0001 

SUBROUTINE  GF2 ADD ( IN A , NA , INB , NB , INC , NC ) 

0002 

DIMENSION  INA(1),INB(1),INC(1) 

0003 

NC=NA 

0004 

IF(NB.GT.NA)NC=NB 

0005 

00  10  1=1, NC 

0006 

IC=NC*1 -I 

0007 

IRA=NA+1-I 

0008 

IRB=NB+1-I 

0009 

ITA  =  0 

0010 

IT8=0 

0011 

IF(IRA.GT.O)ITA=INA(IRA) 

0012 

IF(IR8.GT.0)ITB=INB(IRB) 

0013 

INC(IC)=IEOR(ITA,ITB) 

0014 

10 

CONTINUE 

0015 

RETURN 

0016 

END 

PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SCODEl 

000272 

93 

RM , I , CON , LCL 

SIDATA 

000036 

15 

R W , D , CON , LCL 

SVARS 

000014 

6 

RW,D,CON, LCL 

STEMPS 

000002 

1 

Rw , D,CON , LCL 

TOTAL  SPACE  ALLOCATED  =  000346  115 

NO  EPP  INSTRUCTIONS  GENERATED 
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FORTRAN  IV-PLUS  V02-51E 
GF2AMD.FTN  /WR 


C 

GF2MUL.FTN 

C 

MULTIPLICATION  OVER  GF(2) 

C 

NA<NF,NB<NF 

0001 

SUBROUTINE  GF2MUL(INA,NA,INB,NB,INC,NC,INF,NF) 

0002 

DIMENSION  IAT(17) ,INA(1) ,INB(1) ,INC(1),INF(1) 

0003 

NCC=NA+NB-1 

C 

INI  VECTOR  C 

0004 

DO  10  1=1, NCC 

0005 

10 

I AT ( I ) =0 

C 

MULTIPLY  A  AND  B 

0006 

DO  20  1=1, NA 

0007 

DO  30  J= 1 , NB 

0008 

IC=I+J-1 

0009 

IT  =  IAND(INACI) , I NB ( J )  ) 

0010 

1AT(IC)=IE0R(IAT(IC) ,IT) 

0011 

30 

CONTINUE 

0012 

20 

CONTINUE 

0013 

CALL  GF2DIV(IAT,NCC,INF,NF,INC,NC) 

0014 

RETURN 

0015 

END 

PROGRAM 

SECTIONS 

name 

SIZE 

ATTRIBUTES 

SCOPE  1 

000344 

114 

RW , I , CON ,LCL 

SIDATA 

000066 

27 

RW ,  D , CON , LCL 

SVARS 

000054 

22 

RW , D , CON , LCL 

STEMPS 

000004 

2 

RW,D,CON,LCL 

TOTAL  SPACE  ALLOCATED  *  000512  165 

NO  FPP  INSTRUCTIONS  GENERATED 
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GF2AMD.FTN  /WR 


C 

GF2DIV.FTN 

C 

FINITE  FIELD  DIVISION 

C 

DEVISOR  VECTOR  B  IS  DESTROYED  IN  COMPUTATION  IF  NOT  NORMALIZED 

0001 

SUBROUTINE  GF2DI V ( INA , N A , INB , NB , INC , NC ) 

0002 

DIMENSION  INA(1),INB(1), INC ( 1 ) 

C 

NORMALIZE  VECTOR  B 

0003 

NCsNB-1 

0004 

NBP=NB 

0005 

DO  11  1=1, NB 

0006 

IF(INBCl)  .EO.DGO  TO  22 

0007 

NBP=NBP-1 

0008 

IF ( NBP . LE . 0 ) GO  TO  11 

0009 

DO  33  J=1 ,  NBP 

0010 

33 

INB(J)*INB(J+1) 

0011 

11 

CONTINUE 

C 

VECTOR  B=0 

0012 

WRITE (5/100) 

0013 

100 

FORMAT (IX, 1 DI VISOR  =  0 *  ) 

0014 

RETURN 

0015 

22 

CONTINUE 

0016 

IF(NA.GE.NBP)GO  TO  10 

C 

INA(I)  IS  THE  ANSWER 

0017 

DO  20  1=1, NC 

0018 

IR=NC+1-I 

0019 

INC ( IR ) =0 

0020 

IF ( I . GT . N A ) GO  TO  20 

0021 

ITA=NA+1-I 

0022 

INC(IR)=INA(ITA) 

0023 

20 

CONTINUE 

0024 

RETURN 

0026 

10 

CONTINUE 

C 

INI  VECTOR  C 

C 

ACTUAL  NA  MAY  BE  SMALLER  THAN  NBP 

0026 

DO  30  1=1, NBP 

0027 

30 

INC(I)=INA(I) 

0028 

N AP=NBP 

0029 

111 

CONTINUE 

C 

CHECK  C(l)=l 

0030 

IF C INC ( 1 ) . EQ , 0 ) GO  TO  222 

c 

START  DIVISION 

0031 

DO  50  1=1, NBP 

0032 

50 

INCC I ) =IEOR( INC( I ),INB(I)> 

0033 

222 

CONTINUE 

0034 

N AP=NAP+ 1 

0035 

IF (NAP.GT. NA )G0  TO  333 

C 

SHIFT  ONE  BIT  LEFT 

003b 

DO  60  1=1 , NBP- 1 

0037 

60 

INC(I)=INC(I+1) 

0030 

INC(NBP)=INA(NAP) 

0039 

GO  TO  111 

0040 

333 

CONTINUE 

C 

INSERT  0  IF  NBP  NOT  EQUAL  TO  NB 

0041 

IFCNBP.NE.NBJGO  TO  777 

0042 

DO  555  1=1, NC 

0043 

555 

INC(I)*INC(I+1) 

0044 

RETURN 

1 


m 
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V02-51E 

16:45114 

GF2AMD.FTN 

/MR 

0045  777 

CONTINUE 

0046 

DO  773  1*1, NC 

0047 

IT=0 

004R 

IR=NC+ 1-1 

0049 

IBC=NBP+1-I 

0050 

IF(I.GT.NBP) GO 

TO  773 

0051 

I T= INC  C IBC ) 

0052  773 

INC ( IR )*IT 

0053 

RETURN 

0054 

END 

PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SCODE1 

001004 

258 

RW ,  I , CON , LCL 

SIDATA 

000054 

22 

RW,D,CON,LCL 

$  VARS 

000020 

8 

RM, D,CON,LCL 

STEMPS 

000010 

4 

RW,D,CON,LCL 

TOTAL  SPACE  ALLOCATED  *  001110  292 

NO  FPP  INSTRUCTIONS  GENERATED 
GE2AMD,LP:=GF2AMD/NOTR 


PAGE 
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CONV.FTN  /MR 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 


C 

C 

C 

C 

C 

C 

c 


10 


DBCONV. FTN 
MARCH  13,  1979 

DECIMAL  TO  BINARY  CONVERSION  ROUTINE 
SUBROUTINE  DBCONV (IX,LIB,INB) 

IX; INPUT  INTERGER 
LIB; LENGTH  OF  OUTPUT  VECTOR 
IXsINB(LIB)+IN8(LIB-l)*2T  .  ,  . 
SUBROUTINE  DBCONV ( IX , LIB , INB) 
DIMENSION  INB(l) 

I  Y=  1 X 

DO  10  Isl , LIB 

IRsLIB+l-I 

INB(IR)sMOD(IY,2) 

IYsIY/2 

RETURN 

END 


PROGRAM 

SECTIONS 

NAME 

SIZE 

ATTRIBUTES 

SCODE1 

000136 

47 

RN » I , CON , LCL 

SIDATA 

000012 

5 

RN , D , CON , LCL 

SVARS 

000006 

3 

rm,d,con,lcl 

STEMPS 

000002 

1 

RW , D , CON , LCL 

TOTAL  SPACE  ALLOCATED  =  000160  56 

NO  FPP  INSTRUCTIONS  GENERATED 
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CONV.FTN  /NR 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 


C 

C 

C 

c 

c 

c 

c 


10 


BDCONV.FTN 
MARCH  13,  1979 

BINARY  TO  DECIMAL  CONVERSION  ROUTINE 
SUBROUTINE  BDCONV ( INB , LIB , I Y ) 

I Y J OUTPUT  INTEGER 
LIB; LENGTH  OF  INPUT  VECTOR 
IY=INB(LIB)+INB(LIB-1)*2+  .  .  . 
SUBROUTINE  BDCONV C INB , LIB , IY ) 
DIMENSION  INB(l) 

I  Y  =  0 

IF(LIB.LE.O)RETURN 
DO  10  1=1, LIB 
IT=2**(I-1) 

IY=IY+INB(LIB+1-I)*IT 

RETURN 

END 


PROGRAM  SECTIONS 


NAME 

SIZE 

ATTRIBUTES 

SCODEl 

000144 

50 

RM , I , CON , LCL 

SIDATA 

000012 

5 

RN , D , CON , LCL 

SVARS 

000004 

2 

RW , D , CON , LCL 

$  TEMPS 

000002 

1 

RW , D , CON , LCL 

TOTAL  SPACE  ALLOCATED  =  000164  58 

NO  FPP  INSTRUCTIONS  GENERATED 
CQNV.LPJ  =CON V/NOTR 
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**  RSX-11M  V3.2  **  6-OCT-80  16:47:32 
**  RSX-UM  V3.2  **  6-OCT-80  16:47:32 


URO: 

DRO :  [  0| 

DRO:  tiool 


1 


.69105790E-03 
.  14037930E-02 
.  12683030E-02 
.42341950E-02 
.14142460E-02 
.94583180E-02 
,  1 30  38590E-0  3 
.17981450E-01 
.41874830E-02 
.31238620E-01 
.14568440E-01 
.52947450E-01 
.39348780E-01 
.99802430E-01 
,  12855790E+00 
.4664053E+00 
.4664053E+00 
.  12855790E+00 
.99802430E-01 
.39348780E-01 
.52947450E-01 
.14568440E-01 
.3123862OE-01 
,  41 8748 30E-02 
.17981450E-01 
.13038S90E-03 
, 94583180 E -02 
,  1 4142460E-02 
,42341 950E-02 
.12683030E-02 
.14037930E-02 
,  691 05790E-03 
) .  1 1 955E+00 
).  17501E  +  00 
) . 23046E+00 
).27991E+00 
) , 32937E  +  O0 
) .  37689E+00 
)  .42441E+00 
) .  47  350E+00 
>.52259E*00 
). 56728 E +00 
) .  6  1 1 96E+00 
) .  64927E+00 
).68657E+00 
) . 7  2049E+00 
>.75441E*00 
>.  78538E+00 
) . 8 1 635E+00 
>.84285Et00 
) .  86935E+00 
> . 89298E+00 
>.91660E*00 
1 . 9  388 1 E  +  00 
i.9bl 02E+00 
) .  90  399E  +  00 
1 . 1 00  70$. 401 
M0454E  +  01 
I.  10838E+01 
*.11 432E+01 
».  12027E  +  01 
• .  1 2882E+0 1 
U 13737E+01 


tSBAPC.TBL 

I 32  TAP  QHF  FILTER  CQEFFICIENT(6400  HZ) 


: BETA  QUANTIZER  WITH  4  BITS 


ir.TTTTBtrtm - TBWli  QUANTA  ZElT'irrnr'B  BITS 

0.1 8460E+01 
0. 19535E+01 
0.20564E+01 
0.21593E+01 
0 . 22642E+01 
0.23691E+01 
0 . 24743E+0 1 
0.25795E+01 
0 . 2686 1E+0 1 
0.27928E+01 
0.28983E+01 
0.30039E+01 
0.3 1 08 1 E+0 1 
0 . 321 22E+01 
0. 33168E+01 
0 .342 1 4E+01 
0.35233E+01 
0 . 36252E+01 
0 . 37236E+01 
0 . 36220E-f  01 
0 . 39 1 92E+01 
0 . 40 1 64E+01 
0.41137E+01 
0.42U0E  +  01 
0.43064E+01 
0 . 440 1 8E  +  01 
0.44962E+01 
0 . 45906E+0 1 
0.46848E+01 
0 . 47790E+01 
0. 48703 E +01 
0.49616E+01 
0.50512E+01 
0.51408E+01 
0.52307E+01 
0 . 53205E+01 
0 . 54095E+0 1 
0.54985E+01 
O.55902E+01 
0. 56818E+01 
0.5771 3E+01 
0.58607E+01 
0 . 5951 8E+0 1 
0.60428E+01 
0.61351 E+01 
0.62275E+01 
0.63214E+01 
0.64154E+01 
0.65122E+01 
0 . 66090E+0 1 
0.67081E+01 
0 .6807  3E+01 
0 . b91 1 9E+01 
0.70166E+01 
0.7 1 304E+01 
0.72442E+01 
0.73728E+01 
0.7S014E+01 
0 . 76496E401 
0.77979E+01 
0.80013E+01 
0 . 82047E+0 1 

0.1 9064E+00  :0QH  QUANTIZER  WITH  5  BITS 
0 . 32683E+00  E-74 
0.46302E+00 


rr 

X 


0.70543E+00 
0.82849E+00 
0. 951 54E+00 
0 . 10760E+0 1 
0 . 1 2004E+0 1 
0. 131B8E+01 
0.14372E+01 
0.1 5488E+0 1 
0 . 1 6605E+0 1 
0.1  7730E+01 
0. 18856E+01 
0. 19939E+01 
0.21022E+01 
0.22105E+01 
0 . 2  3 1 8  8E  +  0 1 
0.24193E+01 
0 . 25198E+01 
0.26204E+01 
0.27210E+01 
0 . 28 1 68E+01 
0 . 29 1 27E+0 1 
0 . 30 1 0 1 E+0 1 
0.3 1 075E+0 1 
0.32044E+01 
0 . 330 1 3E+01 
0. 33961E+01 
0.34910t>01 
0.35889E+01 
0.36868E+01 
0.37795E+01 
0. 38722E+01 
0 . 39655E+01 
0.40588E+01 
0.41555E+01 
0.42522E+01 
0.43483E+01 
0 . 44444E+0 1 
0.45438E+01 
0.46432E+01 
0.47414E+01 
0. 48396E+01 
0 . 49364E+01 
0.50332E+01 
0.51330E+01 
0.52329E+01 
0 . 53  378E+01 
0 . 54426E+0 1 
0 . 55504E+0 1 
0. 56582E+01 
0.57699E+01 
0.5881 6E  +  0 1 
0. 59983E+01 
0.61151 E+0 1 
0.62371E+01 
0.6J591E+01 
0.64892E+01 
0.66194E+01 
0.67673E+01 
0.691 53E+0 1 

-0.87994  E+00  jPCRLU) 

-0.77363E *00 
-0.66732£*00 
-0 . 59522fc*00 
-0.52312E+00 

-0  .  **6606Et00 
•  •  *  * 


QUANTIZER  WITH  5  BITS 

E-75 


-ti.4uyuufc+ou 
-0. J6045E+00 
-0.31190E+00 
-0.26812E+00 
-0.22434E+00 
-0.18392E+00 
-0.14350E+00 
-0.10522E+00 
-0.66935E-01 
-0.30230E-01 
0.64762E-02 
0.42000E-01 
0.77525E-01 
0.1 1 224E+00 
0. 14696E+00 
0.1 807  3E  +  00 
0.2 1 450E+00 
0 . 24746E+00 
0 . 28042E+00 
0.3 1 248E+00 
0 . 34454E+00 
0 . 37567E+00 
0 . 40680E+00 
0 . 43687E+00 
0 . 46695E+00 
0 . 49566E+00 
0 . 52438E+00 
0. 5S1 27E+00 
0.5781 7E+00 
0.60282E+00 
0.62748E+00 
0.64976E+00 
0 . 67205E+00 
0 . 692 15E+00 
0.7 1 226E+00 
0 . 73047E+00 
0 . 74869E+00 
0 . 76526E+00 
0. 78184E+00 
0 . 79701E+00 
0.8121 9E+00 
0 . 8261 8E+-00 
0.8401 8E+00 
0. 8531 7E  +  00 
0.86617E+00 
0.87832E+00 
0 . 89048E+00 
0. 90190 E +00 
0.91333E+00 
0.92401E+00 
0.9J470E+00 
0.94457E+00 
0 . 95445E+00 
0.96344E+00 
0 . 97  244E+00 
0 . 98054E+00 
0.98865E+00 
-0.9O267E+00 
“0.91 995E+00 
-0.87723Et00 
-0.84365F+00 
-0.81007Et00 
-0.78072E+00 
-0.75137Et00 
-0.72398E+00 
“0 . 69659E+00 


t PCRL ( 2 )  QUANTIZER  WITH  5  BITS 


JftfV 


IMI 


V  »  -  » 

-0.64377E+00 
-0.61763E+00 
-0.59149E+00 
-0.56532E+00 
-0.53915E+00 
“0.51 275E+00 
-0.48635E+00 
“0 . 459S7E+00 
“0 .  43279E+00 
“0 . 40556E+00 
“0. 37833E+00 
-0. 35062E+00 
-0.32291E+00 
-0.29523E+00 
-0.26755E+00 
“0 . 241 22E+00 
“0.21 489E+00 
-0. 19155E+00 
-0.16821E+00 
“0 . 1 4803E+00 
-0. 127P5E+00 
-0. 10934E+00 
“0 . 90829E-01 
-0.73840E-01 
-0 . 5to8  50E“0 1 
-0.40620E-01 
“0 . 24389E-0 1 
-0 .  63898E-02 
0.7bl00E-02 
0.23901 E-0 1 
0.4019 1 E“0 1 
0.57370E-01 
0.74550E-01 
0.92820E-01 
0.1 1 109E+00 
0.1 3205E+00 
0. 1 5301E+00 
0.1  7825E+00 
0.20349E+00 
0 . 23  324E  +  00 
0.26299K+00 
0 . 29826E+00 
0. 33353E+00 
0.37267E+00 
0.41 181E+00 
0 . 45435E+00 
0.496B9E+00 
0.54353E+00 
0 .590 1 7E+00 
0 . &4602E+00 
0 . 7  01 87E+00 
0.77762E+00 
0.85337E+00 
-0.72278E+00 
“0.591 79E+00 
-0.46080E+00 
-0.35662E+00 
-0 . 25244E+00 
-0. 18333E+00 
-0. 1 1422E+00 
“0. 58879 E “01 
0 . 48074E-03 
0.6081 0E-01 
0.121 16E+00 
0.20370E+00 


: PCKL ( 3 )  QUANTIZER  WITH  3  BITS 


E-77 


J 


-0.53261E-01 
-0.11620E-01 
0.30041E-01 
0.7  3880E-01 
0. 1  1772E  +  00 
0. 16644E+00 
0.2151bE+00 
0.27  301E  +  00 
0.33086 E+00 
0. 40702  F- +  00 
0.48318 E+00 
0.597  36E+00 
0.71 154E+O0 
-0.78903F+00 
-0.66820E+00 
-0.54737E+00 
-0.451B9E+00 
-0. 35641F+00 
-0.27235E+00 
-0.1O829E+00 
-0. 1  1008E  +  00 
-0.31868E-01 
0.47160E-01 
0.1 2619E+00 
0.21 560E+00 
0. 30501E+00 
0.42609E+00 
0.5471 7E+00 
-0.77081E+00 
-0.64754E+00 
-0.52427E+00 
-O.43351E+00 
-0.34275E+00 
"0. 2b41 3E+00 
-0.18551 E+00 
-0. 1 1102E  +  00 
-0.36528E-01 
0. 40490E-01 
0. 1 1751E+00 
0 , 20b37E  +  00 
0.29523E+00 
0.41 846E+00 
0,541 69 E+00 
0,57 160E+00 
0.377  32K+00 
0,101 00E+01 
0. 16427E  +  01 
O.2O766E+O0 
0.44375 E+00 
0,b7984E+00 
0, 1O428E+01 
0. 14057E+01 
0.20966E+01 
0.27874E+01 
0,1 2400E+00 
0 . 26440E+00 
0 . 4O480E+00 
0.56670E+00 
0. 728/OE+OO 
0.91980E+00 
0.11110t+01 
0.1 3444E+01 
0.15778E+01 
0, 18776E+01 
773E+01 


: PCRH  (  3 )  QUANTIZER  WITH  3  BITS 


JPCRH(4)  QUNTIZER  WITH  3  BITS 


SLOW  BAND ( LB ) ERROR  SIGNAL  QUANTIZER  WITH  1-BIT 
SLOW  BAND  ERROR  SIGNAL  QUANTIZERS  2  BITS 


S LB  ERROR  SIGNAL  QUANTIZERs3  BITS 


S LB  ERROR  SIG.  QUANTIZER  WITH  4  BITS 


o  ,«in  1  t+or 
0.301 69E+0 1 
0.37240E+01 
0.4431 1E  +  01 
0 • 653  76E+00 
0 . 38877E+00 
0. 1 1427E+01 
0. 18966E+01 
0.201 96E+00 
0.48833E+00 
0 . 77469E+00 
0.11 967E+01 
0.1618BE+01 
0 . 23432E+01 
0.30676E+01 
0 . 1 2400E+00 
0 . 26440E+00 
0 . 40480E+00 
0.56670E+00 
0.7  2  870E  +  00 
0.91980E+00 
0.111 10E+01 
0 . 1 3444E+0 1 
0. 15778E+01 
0 . 1 B776E+0 1 
0.217  7  3E  +  0 1 
0.25971  E-f  0 1 
0 . 30 1 69E+0 1 
0 . 37  240E  +  0 1 
0.4431 1E+01 
0.251 82E+00 
0. 270696+00 
0.28459E+00 
0 . 29657E+00 
0.307  49E+00 
0.31 776E  +  00 
0. 32761E+00 
0.3371 8E+00 
0 . 34659E+00 
0 . 35590E+00 
0.3651 8E+00 
0 . 37447E+00 
0.38383E+0Q 
0.39329E+00 
0 . 402  89E  +  00 
0.41 266E+00 
0.42263E+00 
0. 43285 E +00 
0 . 443  33E  +  00 
0.4541 3E+00 
0.46527E+00 
0 . 47679E+00 
0 . 48873E+00 
0.501 13E+00 
0.51  404E  +■00 
0 . 52750E+00 
0.541 5  7E  +  00 
0 .  556  30E  +  0Q 
0.57173E+00 
0 . 58  794E+00 
0 . 60498E+00 
0 . 6229 1 E+00 
0.641 79E+00 
0.66168E+00 
0 . 68263E+00 
0.7C468E+00 


SHIGH  BAND(HB)  ERROR  SIGNAL  QUANTIZER  WITH  1  BIT 
:HB  ERROR  SIGNAL  QUANTIZERS  BITS 


:HB  ERROR  SIGNAL  QUANTIZERS  BITS 


:LB  ERROR  SIG.  QUANTIZER  WITH  4  BITS 


TABLE  FOR  MCAULEY  NOISE  SUPPRESSION  FACTOR  NSF=1 


-OTrrrsTETW' 
0.75212E+00 
0.7  7  742E+00 
0 . 80364E+00 
0.8  3053E+00 
0.85774E+00 
0  .  88474E+00 
0.91079E+00 
0 . 93493E+00 
0.95600E+00 
0 . 97  285E  +  00 
0.98476E+00 
0 . 99222E+00 
0 . 997  49E  +  00 
0.20235E+00 
0.21901 £+00 
0 . 23 1 88E+00 
0 . 24336E+00 
0.2541 7E+00 
0.26462E+00 
0 . 27490E+00 
0 . 2851 4E+00 
0.29542E+00 
0.30581E+00 
0.31638E+00 
0.327 16E+00 
0.33822E+00 
0.34959E+00 
0.361 31E+00 
0.37342E+00 
0. 38597 E +00 
0.39899E+00 
0.41 25  3E+00 
0 . 42662E+00 
0 . 44 l 33E+00 
0.45667E+00 
0.4727 1 E+00 
0.48949E+00 
0.50704E+00 
0 . 52541E+00 
0.54464 E+00 
0.56476E+00 
0.58580E+00 
0 . 607  7  8E  +  00 
0 . 63068E+00 
0 . 65450E+00 
0.679 1 8E+00 
0. 70465E+00 
0.7  307  9E  +  00 
0.75742 E+00 
0. 78433E  +  00 
0.811 20E+00 
0  .  H  3769E  +  00 
0.86334E+00 
0 . 8  87  66E+00 
0.91012E+00 
0.93019E+00 
0 . 94744E+00 
0.96157E+00 
0.97258E+00 
0 . 98085E+00 
0.9871 3E+00 
0 . 992  44E  +  00 
0.99749E+00 
0. 14609E+00 
0 . 1 5927E  +  00 


:NSF=2 


SNSF*3 


0.  lbVSOH^TD' 
0 . 1 7969E+00 
0.1891 5E  +  00 
0 . 1 9852E+00 
0 . 20794E+00 
0.21752E+00 
0 . 227  33E+00 
0.23743E+00 
0 . 247  89E+00 
0.25874E+00 
0.27006E+00 
0.28188E+00 
0.29426E+00 
0.30726E+00 
0.32092E+00 
0 . 33531E+00 
0.35049E+00 
0.36650E+00 
0 . 30  342E  +  00 
0.401 3 1E+00 
0.42023E+00 
0 . 44023E+00 
0.461 37E+00 
0.48370E+00 
0 . 50726E+00 
0.53206E+00 
0.5581 0E+00 
0 . 58537E  +  00 
0.61378E+00 
0 . 64323E+00 
0.67356E+00 
0 . 7  0452E+00 
0 . 7  358  3E  +  00 
0.767 1 0E+00 
0 . 7  97  88E+00 
0 . 82764E+00 
0 . B5584E+00 
0 . 88190E+00 
0 . 90532E+00 
0.92567E+00 
0 . 9427  3E+00 
0.95647E+00 
0.96718E+00 
0.97537E+00 
0 . 98 1 82E+00 
0 . 96  7  30E+00 
0 . 99244E+00 
0 . 997  49E+00 
0.95694E-01 
0.1051 0E+00 
0.11 298E+00 
0. 12043E+00 
0. 12780E+00 
0.1 3526E+00 
0 . 1 4291E+00 
0. 15084E+00 
0.1591 0E  +  00 
0. 16776E+00 
0. 1 7687E+00 
0 . I  8651 E  +  00 
0.19672E+00 
0.20757E+00 
0.2191 3E+00 
0.23148E+00 
0 . 24468E+00 
0 . 25883E  + 00 


1 NSFS4 


"(T.~/7  40UE+W- 
G.29031E+00 
0.30783E+00 
0.32666E+00 
0.34697E+00 
0.36879E+00 
0 . 39226E+00 
0.41743E+00 
0 . 44442E+00 
0.47325E+00 
0.60395E+00 
0.63646E+00 
0 . 67068E+00 
0.60640E+00 
0.64333E+00 
0.68105E+00 
0.71902E+00 
0 . 7  5657E+00 
0 . 79295E+00 
0 .  827  36E  +  00 
0 . 85901 E  +  00 
0.88722E+00 
0.91 148E+00 
0.931 55E+00 
0.94752E +00 
0.96980E+00 
0 . 96906E+00 
0.9761 9E  +  00 
0 .  9b  204E  +  00 
0.987  33E+00 
0.99244E+00 
0.997  49E+O0 
0.6771 3E"0  1 
0.63828E-01 
0.69099E-01 
0.74206E-01 
0.79357E-01 
0.84662E-01 
0.90195E-01 
0. 96019 E "01 
0. 10219E+00 
0. 10876E+00 
0.1 1579E+00 
0.12334E+00 
0.1 3148E+00 
O.14027E+00 
0.1 4979E+00 
0.1601 4E  +  00 
0. 1 7142E+00 
0.18372E+00 
0.19718  E>00 
0.21 193E+00 
0.2281 1E  +  U0 
0 . 2  45B9E+00 
0 . 26543E+00 
0 . 28694E+00 
0.31068 E+00 
0. 33657E  +  00 
0.36507E+00 
0 . 39624E  +  00 
0 . 43020E+00 
0 . 46697E+00 
0 . 60649E+00 
0 . 54853E+00 
0.59270E+00 
0.63838E+00 


(T.wmt'+TO 
0 . 7  3063E  +  00 
0.7  749 1 E+00 
0.8 1626E+00 
0 . 8S  352E  +  00 
0 . 88574E+00 
0.9 1 242E+00 
0.93352E+00 
0.94951E+00 
0.96125E+00 
0 . 96987E+00 
0.97650E+-00 
0.9821 1E+00 
0 . 987  34E+00 
0.99244E+00 
0.99749E+00 

0.32632E-01  :NSF 

0.36309E-01 

0.3955ftE-01 

0.42758E-01 

0.4b038E-01 

0.49466E-01 

0.53091E-01 

0.5b9S7E-01 

0 . b 1 1 09E-0 1 

0.65592E-01 

0.70454E-01 

0.75748E-01 

0.81536E-01 

0.R7866E-01 

0.94876E-01 

0 . 1 0260E+00 

0.1111 5E+00 

0 . 1 206&E+00 

0. 13124E+00 

0.14308E+00 

0.1 5634E+0G 

0.17 1 24E+00 

0. 18801 E +00 

0.20b92E+00 

0 . 228  26E  +  00 

0 . 252  J7E  +  00 

0.27958E+00 

0 . 31 024E  +  00 

0 . 34469E+00 

0.383 1 8E+00 

0.42588E+00 

0 . 4727  3E+00 

0 . 52342E+00 

0 . 57724E+00 

0 . 63306E+00 

0.68929E+00 

0.74399E+00 

0.79505E+00 

0 . 8405SE+00 

0.87906E+00 

0 . 90990E+00 

0.93327E+00 

0.95012E+00 

0.96191E+00 

0 . 97026E+00 

0 , 97665E+00 

0.98214E+00 

0.98734E+00 

0 . 99244E+00 

0. 99749 E +00 


Tr.rrarvTE^TJT' 
0.1 9676E-0 1 
0.21552E-01 
0.23428L-01 
0.25J74F-01 
0. 27430 E “01 
0.29629E-01 
0.32000E-01 
0.34574E-01 
0.37  384E-01 
0.40465E-01 
0.43861E-01 
0.47618E-01 
0.51792E-01 
0.56448E-01 
0.6 1 6b2E“0 1 
0.67525E-01 
0.7  41 42E-0 1 
0.81641E-01 
0.9017  4E-0 1 
0.99919E-01 
0.1 1 109E+00 
0.1 2395E+00 
0.1388 1E  +  00 
0. 15601E+00 
0 . 1 7600E+00 
0.1 9925E+00 
0. 22632 E +00 
0. 25782 E +00 
0.29437E+00 
0. 33653E+00 
0 . 3847  3E  +  00 
0.43907E+00 
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APPENDIX  F 


THE  16  KBPS  ADAPTIVE  TRANSFORM  CODER 

Adaptive  Transform  Coding  (ATC),  as  proposed  by  Zelinsky  and  Noll  £1] 
is  an  effective  block-coding  technique  for  speech  encoding  in  the  8.0  to  16.0 

kb/s  range. 

In  its  basic  form,  ATC  consists  of  sending  the  largest  cosine  transform 
coefficients  of  a  segment  of  data  with  each  coefficient  quantized  according  to  an 
algorithm  that  gives  the  larger  coefficients  more  bits  than  the  smaller  coefficients. 
This  ATC  algorithm  departs  from  earlier  algorithms  that  not  only  had  to  send  the 
amplitudes  of  the  coefficients,  but  also  had  to  send  considerable  information  about 
-hich  coefficients  were  quantized  and  how  many  bits  were  associated  with  each.  This 
extra  information  could  consume  as  much  data  capacity  as  the  coefficient  amplitudes 
themselves.  Attempts  at  sending  only  specific  coefficients  or  the  use  of  a  fixed- 
bit  assignment  generally  reduced  voice  quality  by  creating  waveform  discontinuities 
at  the  frame  boundaries  and  by  spectrally  distorting  the  signal  between  boundaries. 

In  ATC,  however,  information  about  which  amplitude  is  sent  and  how  many  bits 
are  allocated  to  each  is  contained  in  the  basis  spectrum,  which  requires  only  2000 
to  2400  b/s.  This  basis  spectrum  generally  is  information  about  the  envelope  of  the 
trail... orm  coefficients  being  quantized.  Its  calculation  can  be  performed  by  the 
smoothing  of  transform  coefficients  or  by  separate  estimates  involving  least-square 

analysis  [2j. 

To  understand  ATC,  consider  a  sampled  waveform  segment  shown  in  Figure  C-l(a). 
If  this  waveform  is  multiplied  by  1/2,  delayed  by  half  the  sampling  interval  T,  and 
reflected  about  t=0,  it  yields  X2(t)  whose  Fourier  transform  is  given  by: 


X2(f) 


£  x2(nT)  exp^-j2irf(n+l/2)T 

n  =  - ( N- 1 ) 


(F-l) 
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x2(t) 


(b)  Reflected  Waveform 


t  COSINE  SPECTRUM,  X2(k) 
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(c)  OFT  Output 

Discrete  Cosine  Transform  Operation 
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If  we  sample  the  Fourier  transform  of  X2(f)  at  frequencies  »  the  discrete 
Fourier  transform  (DFT)  becomes 

m  N-l  \ 

X2(oirT-)  =  X;,(m)  «  £  X2(nT)  expf-j-rf  (n+1/2) )  (F-2) 

^NT  N=-(N- 1 )  V  N  / 

Using  symmetry  properties  of  X2(nT),  X2(m)  shown  in  Figure  F-l(b)  is  real  only 
and  is  given  by 

N-l  /  \ 

X2(m)  =  £  X x ( nT )  cost  ^  (2n+l  )  0<m£N-l  (F-3) 

n=0  x  d  ' 

Equation  (F-3)  is  the  cosine  transform.  This  derivation  shows  that  the  Fast 
Fourier  Transform  (FFT)  can  be  used  to  implement  the  cosine  transform  by  delaying 
and  reflecting  the  original  waveform  and  then  taking  the  FFT  on  a  waveform  twice 
as  long  as  the  original. 

The  most  expensive  implementation  costs  with  the  ATC  algorithm  are  associated 
with  the  Discrete  Cosine  Transform  (DCT)  and  Discrete  Fourier  Transform  (DFT). 
Although  the  DCT  cannot  be  employed  directly,  methods  elaborated  by  Ahmed  et  a 1 
|3]  and  Cooley  et  al  [4j  use  the  DFT  to  compute  the  desired 

transform.  These  algorithms  and  their  interrelationships  are  shown  in  Appendix  G 
for  clarification.  Our  FORTRAN  simulations  are  now  using  the  Cooley  method  for  DCT 
calculation  and  a  special  FFT  algorithm  to  lower  simulation  costs. 

After  calculation  of  the  ATC  coefficients,  the  basis  spectrum  (envelope  of 
the  cosine  transform)  can  be  estimated  by  making  all  the  cosine  transform  coeffi¬ 
cients  positive  and  smoothing  between  peaks  to  efficiently  send  the  envelope.  We 
can  quantize  the  amplitudes  of  every  mth  (m  is  typically  8)  envelope  sample  and 
send  those  as  the  coefficients  of  the  basis  spectrum. 

However,  this  original  ATC  algorithm,  as  proposed  by  Zelinski  and  Noll,  suffers 
from  a  "burbling"  characteristic  at  lower  data  rates.  To  reduce  this  distortion, 
Tribolet  |2|  uses  side  transmission  of  pitch  and  spectral  parameters 

obtained  by  Linear  Predictive  Coding  (LPC)  analysis.  The  side  transmission  of  the 
LPC  and  pitch  parameters  does  in  fact  remove  the  "burbling"  sound  and  improve  the 
overall  signal-to-noise  ratio.  Figure  F-2  describes  the  operation  of  this  ATC 
digitizer. 


The  innovative  solution  to  the  basis  spectnm  calculation  is  formed  from  a 
leac c-square  analysis  of  x2(t),  that  is,  finding  those  predictor  coefficients  which 


minimize. 

E  = 


N-l 

L 


n  =  0 


x2(n) 


_ 2 

aix2(n-i ) 


(F-4) 


These  predictor  coefficients,  or  alternately  reflection  coefficients,  carry  informa¬ 
tion  about  the  envelope  since: 


y(f)  =  FFT(a.)  (F-5) 

and  the  envelope  is  then  Y_1(f). 

In  addition  to  linear  predictive  modeling  of  the  ATC  spectrum,  the  Tribolet 
approach  uses  a  pitch  excitation  source.  This  accounts  for  the  fine  structure  in 
the  short-time  spectrum,  which  is  consistent  with  the  known  mechanisms  of  speech 
production.  This  scheme  forces  the  assignment  of  transform  bits  to  many  pitch 
strictions  that  otherwise  would  not  be  transmitted  at  all. 

With  reference  to  Figure  F-3,the  ATC  analysis  is  described  as  follows: 

1.  The  input  speech  (Figure  F-3  (a) )  is  Fourier  transformed  to  yield  a  DCT 
spectrum  (Figure  F-3  (b) ).  This  spectrum  is  squared,  windowed,  and 
inverse  Fourier  transformed  to  yield  an  autocorrelation  function  (i.e., 
pseudo-ACF)  of  the  reflected  speech  waveform.  The  first  P+1  values  of 
this  function  are  used  to  define  a  correlation  matrix  in  the  usual  normal 
equation  formulation  sense.  The  solution  of  these  equations  (i.e., 
Levinson  recursion)  yields  a  prediction  filter  of  order  P.  The  inverse 
spectrum  of  this  filter  yields  a  smoothed  estimate  of  the  DCT  (Figure 
F-3(c))  spectral  levels  to  be  used  in  the  adaptation  of  the  quantizers. 

2.  A  rudimentary  estimate  of  the  pitch  value,  M,  is  found  in  the  pseudo-ACF 
after  the  second  zero  crossing  beyond  the  P+1  ACF  value.  A  corresponding 
gain  factor,  G,  is  also  computed  as  the  ratio  of  ACF(M)/ACF(0) .  With 
these  two  parameters,  a  pitch  pattern  is  generated  in  the  frequency  domain 
(Figure  F-3  (d) )  and  applied  congruently  with  the  LPC  spectrum.  This 
combination,  yielding  a  linear  prediction  spectral  fit  to  the  DCT  of  the 
input  speech,  is  called  the  basis  spectrum  (Figure  F-3  (e) ) . 


3. 


The  computation  to  determine  the  number  of  bits  to  allocate  for  each 
transform  then  proceeds  as  follows: 


Let  oi  be  the  amplitude  of  the  ith  term  of  the  envelope  of  the  basis 
spectrum.  The  B^ ,  the  number  of  bits  allocated  to  the  i  cosine  transform  coefficient, 
is  given  by: 


8i 


N 

Bf/N  -  (1/2N)  D 
j  =  1 


log2o.2 


1/2 


log2<y 


( F  -  6 ) 


where 

=  the  total  number  of  bits  allocated  to  send  the  cosine  transform 
coefficients  pe^  frame 

N  =  the  total  number  of  cosine  transform  coefficients  calculated 
per  frame. 

Note  that  the  term  in  brackets  is  calculated  once  per  frame.  Fairly  simple  algorithms 
ensure  that  Bi  is  an  integer  value  and  that  the  sum  of  the  integer  Bi  adds  to  Bf. 

The  cosine  transform  coefficients  approximate  a  Gaussian  probability  density 
function.  Optimum  Gaussian  quantizers  derived  by  Max  can  be  used  to  encode  each 
transform  coefficient  with  Bi  bits.  Since  many  of  the  Bi ' s  will  be  zero,  only 
larger  coefficients  are  sent.  However,  GTE  has  shown  that  optimal  quantizers  can 
be  developed  that  more  closely  match  the  transform  distribution. 


4.  The  receiver  uses  the  basis  spectrum  information  (LPC,  M,  G)  to  regener¬ 
ate  the  DCT  envelope,  to  generate  the  bit  allocations  using  Equation 
( F-6) ,  to  decode  the  cosine  transform  coefficients  (Figure F-3  (f)),  and 
then  to  take  the  inverse  cosine  transform  using  the  FFT.  Frame 
boundary  problems  exist  at  all  data  rates  since  quantization  of  the 
transform  coefficients  causes  the  regenerated  waveform  to  be  slightly 
different  than  the  original.  By  overlapping  the  frames  slightly  and 
by  interpolating  across  frame  boundaries,  these  discontinuities  can  be 
smoothed. 
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The  overall  quality  of  this  approach  can  be  surmised  from  Figure  F-3(g), 
which  shows  the  error  waveform  defined  as: 

e(n)  =  s(n)  -  s(n)  (F-7) 

The  received  waveform,  s(n),  has  a  high  signal -to-noise  ratio  (%20  dB)  for  some 
speakers,  even  for  erroneous  pitch  estimations  made  in  the  analyzer.  In  fact. 

GTE  has  found  that  an  eighth-order  LPC  predictor  (P  =  8),  coupled  with  the  rudi¬ 
mentary  pitch  extractor  (and  voiced/unvoiced  logic),  yields  high  quality  speech. 

In  summary,  the  specifications  of  the  16  Kb/s  ATC  is  shown  in  Table  F-l. 
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Figure  F-3.  Graphical  Description  of  Vocoder  Strategy  for  ATC 
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Figure  F-3.  Graphical  Description  of  Vocoder  Strategy  for  ATC  (Cont.) 
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PARAMETER 


SPECIFICATION 


Input  Bandwidth 
Sampling  Rate 
Frame  Rate 

Number  of  Samples/ Frame 

Number  of  Samples  Overlapped/ Frame 

Bits/ Frame 

Pitch 

Pitch  Gain 

Voiced/Unvoiced 
RMS  Energy 
DC  BIAS 
PARCOR  1 
PARCOR  2 
PARCOR  3 
PARCOR  4 
PARCOR  5 
PARCOR  6 
PARCOR  7 
PARCOR  8 

Parity  Bits  (Error  Correction) 
SYNC 

DCT  Coefficients 


0-3200  Hz 
6400  Hz 


26.016/sec. 

246 

10 

615 


if  voiced 
if  unvoiced 

if  voiced 
if  unvoiced 


{513  voiced 
521  unvoiced 


Number  of  Error  Control  Blocks/Frame  3 

Error  Control  Technique  (63,45)  BCH 

TABLE  F-l:  16  KBPS  ATC  SYSTEM  SPECIFICATION 
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APPENDIX  G 

INTERRELATIONSHIPS  BETWEEN  DCT  AND  DFT  ALGORITHMS 


Problem  Statement:  Given  a  sequence  x(m)  m=0,l,...M-l 

formulate  the  DCT  of  x  as  G  (k)  k=0,l,...M-l 


Solutions: 

1.  Direct  DCT  Method 


where 


M-l 


MO)  =  iSf”  £  x(m) 


m=0 


M-l 


G  (k)  = 
x'  ' 


|  I  x(m)  cos  ,  k=l  ,2,. .  .M-l 


m=0 


x(m)j^ 


M-point  f 

(k) 

DCT  {* 


2.  Ahmed  DFT  Method 


M°> =  w  x<°) 


|exp('  k=l  ,2,. .  .M-l 


X(k)  =  DFT (x )  =  £  x(m)  exp.(-  ,  k-0,1,... 


2M- 


and  x(m)  =< 


m=0 

x(m)  for  m=0,l . .M-l 

for  m=M,M+l,...2M-l 


G-l 


CM 


